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 );
18 foreach my $c ( @changes ) {
22 my $params = retrieve $c;
23 my $hash = $params->to_hash;
24 $hash->{time} = $1 if $c =~ m{/(\d+\.\d+)\.data\.edit};
26 warn "# hash ",dump($hash);
28 my $tx = $t->post_form( $url => $params->to_hash );
29 if ( my $res = $tx->success) { print $res->body }
31 my ($code, $message) = $tx->error;
32 die "Error: $message";
35 # last if $max-- == 0;