<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Catalyst::Script::Test;
use Moose;
use Catalyst::Test ();
use namespace::autoclean;

with 'Catalyst::ScriptRole';

sub run {
    my $self = shift;

    Catalyst::Test-&gt;import($self-&gt;application_name);

    foreach my $arg (@{ $self-&gt;ARGV }) {
        print request($arg)-&gt;content  . "\n";
    }
}


__PACKAGE__-&gt;meta-&gt;make_immutable;
1;

=head1 NAME

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

=head1 SYNOPSIS

  myapp_test.pl [options] /path

  Options:
  -h     --help           display this help and exits

=head1 DESCRIPTION

Script to perform a test hit against your application and display the output.

=head1 SEE ALSO

L&lt;Catalyst::ScriptRunner&gt;

=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
</pre></body></html>