8 use Data::Dump qw(dump);
10 my $url = 'http://localhost:3000/data/edit';
15 my $t = Mojo::Client->new;
16 $t->max_redirects( 1 );
20 foreach my $c ( sort {
21 my $at = $1 if $a =~ m/(\d+\.\d+)/;
22 my $bt = $1 if $b =~ m/(\d+\.\d+)/;
28 my $params = retrieve $c;
29 my $hash = $params->to_hash;
30 $hash->{time} = $1 if $c =~ m{/(\d+\.\d+)\.data\.edit};
32 warn "# hash ",dump($hash);
34 my $tx = $t->post_form( $url => $hash );
35 if ( my $res = $tx->success) {
36 my $code = $res->code;
38 print $code, ' ', $res->body
40 my ($code, $message) = $tx->error;
41 die "Error: $message";
44 # last if $max-- == 0;
47 warn "# stats ",dump($stats);