t/Test/lib/Test/Controller/Snarf.pm

   1 package Test::Controller::Snarf;
   2
   3 use strict;
   4 use warnings;
   5 use parent 'Catalyst::Controller';
   6
   7 =head1 NAME
   8
   9 Test::Controller::Snarf - Catalyst Controller
  10
  11 =head1 DESCRIPTION
  12
  13 Catalyst Controller.
  14
  15 =head1 METHODS
  16
  17 =cut
  18
  19
  20 =head2 index
  21
  22 =cut
  23
  24 sub index :Path :Args(0) {
  25     my ( $self, $c ) = @_;
  26
  27     $c->response->body('Matched Test::Controller::Snarf in Snarf.');
  28 }
  29
  30
  31 =head1 AUTHOR
  32
  33 Devin Austin,,,
  34
  35 =head1 LICENSE
  36
  37 This library is free software. You can redistribute it and/or modify
  38 it under the same terms as Perl itself.
  39
  40 =cut
  41
  42 1;