lib/Catalyst/Script/Test.pm

   1 package Catalyst::Script::Test;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 with 'Catalyst::ScriptRole';
   6
   7 sub run {
   8     my $self = shift;
   9
  10     Class::MOP::load_class("Catalyst::Test");
  11     Catalyst::Test->import($self->app);
  12
  13     print request($ARGV[1])->content  . "\n";
  14
  15 }
  16
  17
  18 __PACKAGE__->meta->make_immutable;
  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