HOPE/Net-OpenAMD/script/test_server.pl - diff

Return to test_server.pl CVS log

Up to [local] / HOPE / Net-OpenAMD / script

version 1.4, 2010/06/26 17:16:08

version 1.5, 2010/06/27 01:52:33

Line 3

use Mojolicious::Lite;

use Mojo::JSON;

use Data::Dumper;

use 5.010;

app->renderer->add_helper(

Line 13

Line 11

state %Actions;

my $path = app->home->rel_file( 'data/' . $action );

my $path = app->home->rel_file( '../t/data/' . $action );

return if ! -e $path;

return if !-e $path;

my $mtime = ( stat _ )[9];

$Actions{$action}{mtime} //= 0;

Line 52

Line 50

my @data = @{$data};

foreach my $param ( $self->param ) {

my $value = $self->param($param);

@data = grep { ( !exists $_->{$param} ) || $value ~~ $_->{$param} }

@data = grep {

@data;

ref $_ ne 'HASH'

|| ( !exists $_->{$param} )

|| $value ~~ $_->{$param}

} @data;

}

$self->render_json( \@data );

};