[BACK]Return to test_server.pl CVS log [TXT][DIR] Up to [local] / HOPE / Net-OpenAMD / script

Diff for /HOPE/Net-OpenAMD/script/test_server.pl between version 1.5 and 1.7

version 1.5, 2010/06/27 01:52:33 version 1.7, 2010/06/27 04:26:56
Line 1 
Line 1 
 #!/usr/bin/env perl  #!/usr/bin/env perl
   
   use 5.010;
   
   BEGIN {
       use FindBin;
       use lib "$FindBin::Bin/../lib";
       use lib "$FindBin::Bin/../mojo/lib";
       use lib "$FindBin::Bin/../../mojo/lib";
   }
   
 use Mojolicious::Lite;  use Mojolicious::Lite;
 use Mojo::JSON;  use Mojo::JSON;
   
 use 5.010;  
   
 app->renderer->add_helper(  app->renderer->add_helper(
     action => sub {      action => sub {
         my ( $self, $action ) = @_;          my ( $self, $action ) = @_;
Line 48 
Line 55 
     return if !ref $data;      return if !ref $data;
   
     my @data = @{$data};      my @data = @{$data};
     foreach my $param ( $self->param ) {  
         my $value = $self->param($param);      my $p = $self->req->params->to_hash;
       while ( my ( $param, $value ) = each(%$p) ) {
         @data = grep {          @data = grep {
             ref $_ ne 'HASH'                     ref $_ ne 'HASH'
                 || ( !exists $_->{$param} )                  || ( !exists $_->{$param} )
                 || $value ~~ $_->{$param}                  || $value ~~ $_->{$param}
         } @data;          } @data;
     }      }
   
     $self->render_json( \@data );      $self->render_json( \@data );
 };  };
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>