[catagits/Catalyst-Runtime.git] / lib / Catalyst / Script / Test.pm

package Catalyst::Script::Test;
use Moose;
use Catalyst::Test ();
use namespace::autoclean;

with 'Catalyst::ScriptRole';

sub run {
    my $self = shift;

    Catalyst::Test->import($self->application_name);

    print request($ARGV[0])->content  . "\n";

}


__PACKAGE__->meta->make_immutable;

=head1 NAME

Catalyst::Script::Test - Test Catalyst application on the command line

=head1 SYNOPSIS

See L<Catalyst>.

=head1 DESCRIPTION

FIXME

=head1 AUTHORS

Catalyst Contributors, see Catalyst.pm

=head1 COPYRIGHT

This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.

=cut
Commit	Line	Data
0ba6e8aa	1	package Catalyst::Script::Test;
accb0640	2	use Moose;
95389116	3	use Catalyst::Test ();
d9a32f71	4	use namespace::autoclean;
451b2a44	5
d3082fac	6	with 'Catalyst::ScriptRole';
451b2a44	7
	8	sub run {
	9	my $self = shift;
	10
e25affcb	11	Catalyst::Test->import($self->application_name);
57dc50b0	12
95389116	13	print request($ARGV[0])->content . "\n";
57dc50b0	14
451b2a44	15	}
451b2a44	16
73e4f0f1	17
d6e8e664	18	__PACKAGE__->meta->make_immutable;
d3082fac	19
	20	=head1 NAME
	21
	22	Catalyst::Script::Test - Test Catalyst application on the command line
	23
	24	=head1 SYNOPSIS
	25
	26	See L<Catalyst>.
	27
	28	=head1 DESCRIPTION
	29
	30	FIXME
	31
	32	=head1 AUTHORS
	33
	34	Catalyst Contributors, see Catalyst.pm
	35
	36	=head1 COPYRIGHT
	37
	38	This library is free software. You can redistribute it and/or modify it under
	39	the same terms as Perl itself.
	40
	41	=cut