lib/Catalyst/Script/Test.pm

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