6 our $VERSION = '0.0001';
8 use base 'Mojolicious';
10 use Data::Dump qw(dump);
12 use Time::HiRes qw(time);
17 # warn "## before_dispatch req ",dump($tx->req->url, $tx->req->params);
18 my $parts = $tx->req->url->path->parts;
19 warn "# parts ",dump( $parts );
20 if ( $parts->[0] eq 'data' ) {
21 if ( my $params = $tx->req->params ) {
23 warn "# params ",dump($params);
26 if ( my $time_travel = $params->param('time') ) {
27 warn "# time-travel to $time_travel from ", $tx->remote_address;
31 my $path = '/tmp/actions/';
32 mkdir $path unless -e $path;
33 $path .= sprintf '%.4f.%s', $time, join('.', @$parts);
36 warn "$path ", -s $path, " bytes\n";
42 # This method will run once at server start
47 my $r = $self->routes;
50 $r->route('/:controller/:action/:id')->to('data#index', id => 0);
52 # $self->plugin( 'request_timer' );
54 $self->plugins->add_hook(
55 before_dispatch => sub {
58 save_tx( $self, $tx );