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 my $path = '/tmp/changes/';
24 mkdir $path unless -e $path;
25 $path .= sprintf '%.4f.%s', time(), join('.', @$parts);
28 warn "$path ", -s $path, " bytes\n";
34 # This method will run once at server start
39 my $r = $self->routes;
42 $r->route('/:controller/:action/:id')->to('data#index', id => 1);
44 # $self->plugin( 'request_timer' );
46 $self->plugins->add_hook(
47 before_dispatch => sub {
50 save_tx( $self, $tx );