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

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

with 'Catalyst::ScriptRole';

sub run {
    my $self = shift;

    Class::MOP::load_class("Catalyst::Test");
    Catalyst::Test->import($self->app);

    print request($ARGV[1])->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;
d9a32f71	3	use namespace::autoclean;
451b2a44	4
d3082fac	5	with 'Catalyst::ScriptRole';
451b2a44	6
	7	sub run {
	8	my $self = shift;
	9
	10	Class::MOP::load_class("Catalyst::Test");
	11	Catalyst::Test->import($self->app);
57dc50b0	12
451b2a44	13	print request($ARGV[1])->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