lib/SGN/View/BareMason.pm

   1 package SGN::View::BareMason;
   2 use Moose;
   3 extends 'SGN::View::Mason';
   4
   5 # inherit all the munged interp_args settings from SGN::View::Mason,
   6 # then turn the autohandler off
   7 sub COMPONENT {
   8     my ($class, $c, $args) = @_;
   9
  10     $args = $class->merge_config_hashes(
  11         $class->config,
  12         {
  13           %$args,
  14           interp_args => {
  15             %{ $c->view('Mason')->interp_args },
  16             autohandler_name => '',
  17           },
  18         },
  19       );
  20
  21     return $class->new($c, $args);
  22 }
  23
  24 =head1 NAME
  25
  26 SGN::View::BareMason - like the Mason view, except with no autohandlers
  27
  28 =head1 DESCRIPTION
  29
  30 Mason View Component for SGN
  31
  32 =head1 SEE ALSO
  33
  34 L<SGN>, L<HTML::Mason>
  35
  36 =head1 AUTHOR
  37
  38 Robert Buels,,,
  39
  40 =head1 LICENSE
  41
  42 This library is free software . You can redistribute it and/or modify it under
  43 the same terms as perl itself.
  44
  45 =cut
  46
  47 1;