![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to test_server.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / HOPE / Net-OpenAMD / script|
Return to test_server.pl CVS log | Up to [local] / HOPE / Net-OpenAMD / script |
| version 1.6, 2010/06/27 03:33:54 | version 1.7, 2010/06/27 04:26:56 | ||
|---|---|---|---|
|
|
||
| #!/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 { |