[catagits/CatalystX-Debug-RequestHeaders.git] / t / lib / script / testapp_test.pl

#!/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;
Commit	Line	Data
4b9bbaf9	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
	7	use lib "$FindBin::Bin/..";
	8	use Catalyst::Test 'TestApp';
	9
	10	print request($ARGV[0])->content . "\n";
	11
	12	1;