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

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

with 'Catalyst::ScriptRole';

__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');

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
0e4038c6	8	__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h');
b1320d7d	9
451b2a44	10	sub run {
	11	my $self = shift;
	12
e25affcb	13	Catalyst::Test->import($self->application_name);
57dc50b0	14
95389116	15	print request($ARGV[0])->content . "\n";
57dc50b0	16
451b2a44	17	}
451b2a44	18
73e4f0f1	19
d6e8e664	20	__PACKAGE__->meta->make_immutable;
d3082fac	21
	22	=head1 NAME
	23
	24	Catalyst::Script::Test - Test Catalyst application on the command line
	25
	26	=head1 SYNOPSIS
	27
	28	See L<Catalyst>.
	29
	30	=head1 DESCRIPTION
	31
	32	FIXME
	33
	34	=head1 AUTHORS
	35
	36	Catalyst Contributors, see Catalyst.pm
	37
	38	=head1 COPYRIGHT
	39
	40	This library is free software. You can redistribute it and/or modify it under
	41	the same terms as Perl itself.
	42
	43	=cut