#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/..";
use Catalyst::Test 'TestApp';
print request($ARGV[0])->content . "\n";
1;
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/..";
use Catalyst::Test 'TestApp';
print request($ARGV[0])->content . "\n";
1;