t/lib/TestApp/View/TestView.pm

   1 #!/usr/bin/perl
   2 # TestView.pm
   3 # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
   4
   5 package TestApp::View::TestView;
   6 use base 'Catalyst::View';
   7
   8 sub AUTOLOAD {
   9     our $AUTOLOAD =~ s{.*::}{};
  10     return $_[0]->{$AUTOLOAD};
  11 }
  12
  13 1;