lib/SGN/View/BareMason.pm

   1 package SGN::View::BareMason;
   2 use Moose;
   3 extends 'SGN::View::Mason';
   4
   5 around 'interp_args' => sub {
   6     my $orig = shift;
   7     my $args = shift->$orig( @_ );
   8     $args->{autohandler_name} = '';
   9     return $args;
  10 };
  11
  12 =head1 NAME
  13
  14 SGN::View::BareMason - like the Mason view, except with no autohandlers
  15
  16 =head1 DESCRIPTION
  17
  18 Mason View Component for SGN
  19
  20 =head1 SEE ALSO
  21
  22 L<SGN>, L<HTML::Mason>
  23
  24 =head1 AUTHOR
  25
  26 Robert Buels,,,
  27
  28 =head1 LICENSE
  29
  30 This library is free software . You can redistribute it and/or modify it under
  31 the same terms as perl itself.
  32
  33 =cut
  34
  35 1;