t/lib/TestApp/Controller/Action/Inheritance.pm

   1 package TestApp::Controller::Action::Inheritance;
   2
   3 use strict;
   4 use base 'TestApp::Controller::Action';
   5
   6 sub auto : Private {
   7     my ( $self, $c ) = @_;
   8     return 1;
   9 }
  10
  11 sub begin : Private {
  12     my ( $self, $c ) = @_;
  13     $self->SUPER::begin($c);
  14 }
  15
  16 sub default : Private {
  17     my ( $self, $c ) = @_;
  18     $c->forward('TestApp::View::Dump::Request');
  19 }
  20
  21 sub end : Private {
  22     my ( $self, $c ) = @_;
  23 }
  24
  25 package TestApp::Controller::Action::Inheritance::A;
  26
  27 use strict;
  28 use base 'TestApp::Controller::Action';
  29
  30 sub auto : Private {
  31     my ( $self, $c ) = @_;
  32     return 1;
  33 }
  34
  35 sub begin : Private {
  36     my ( $self, $c ) = @_;
  37     $self->SUPER::begin($c);
  38 }
  39
  40 sub default : Private {
  41     my ( $self, $c ) = @_;
  42     $c->forward('TestApp::View::Dump::Request');
  43 }
  44
  45 sub end : Private {
  46     my ( $self, $c ) = @_;
  47 }
  48
  49 package TestApp::Controller::Action::Inheritance::A::B;
  50
  51 use strict;
  52 use base 'TestApp::Controller::Action';
  53
  54 sub auto : Private {
  55     my ( $self, $c ) = @_;
  56     return 1;
  57 }
  58
  59 sub begin : Private {
  60     my ( $self, $c ) = @_;
  61     $self->SUPER::begin($c);
  62 }
  63
  64 sub default : Private {
  65     my ( $self, $c ) = @_;
  66     $c->forward('TestApp::View::Dump::Request');
  67 }
  68
  69 sub end : Private {
  70     my ( $self, $c ) = @_;
  71 }
  72
  73 1;
  74