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 begin : Private {
   7     my ( $self, $c ) = @_;
   8     $self->SUPER::begin($c);
   9 }
  10
  11 sub default : Private {
  12     my ( $self, $c ) = @_;
  13     $c->forward('TestApp::View::Dump::Request');
  14 }
  15
  16 sub end : Private {
  17     my ( $self, $c ) = @_;
  18 }
  19
  20 package TestApp::Controller::Action::Inheritance::A;
  21
  22 use strict;
  23 use base 'TestApp::Controller::Action';
  24
  25 sub begin : Private {
  26     my ( $self, $c ) = @_;
  27     $self->SUPER::begin($c);
  28 }
  29
  30 sub default : Private {
  31     my ( $self, $c ) = @_;
  32     $c->forward('TestApp::View::Dump::Request');
  33 }
  34
  35 sub end : Private {
  36     my ( $self, $c ) = @_;
  37 }
  38
  39 package TestApp::Controller::Action::Inheritance::A::B;
  40
  41 use strict;
  42 use base 'TestApp::Controller::Action';
  43
  44 sub begin : Private {
  45     my ( $self, $c ) = @_;
  46     $self->SUPER::begin($c);
  47 }
  48
  49 sub default : Private {
  50     my ( $self, $c ) = @_;
  51     $c->forward('TestApp::View::Dump::Request');
  52 }
  53
  54 sub end : Private {
  55     my ( $self, $c ) = @_;
  56 }
  57
  58 1;
  59