clean
[sgn.git] / lib / SGN / View / BareMason.pm
blobcf9de08fcde142f20f823e232884002e7949545a
1 package SGN::View::BareMason;
2 use Moose;
3 extends 'SGN::View::Mason';
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) = @_;
10 $args = $class->merge_config_hashes(
11 $class->config,
13 %$args,
14 interp_args => {
15 %{ $c->view('Mason')->interp_args },
16 autohandler_name => '',
21 return $class->new($c, $args);
24 =head1 NAME
26 SGN::View::BareMason - like the Mason view, except with no autohandlers
28 =head1 DESCRIPTION
30 Mason View Component for SGN
32 =head1 SEE ALSO
34 L<SGN>, L<HTML::Mason>
36 =head1 AUTHOR
38 Robert Buels,,,
40 =head1 LICENSE
42 This library is free software . You can redistribute it and/or modify it under
43 the same terms as perl itself.
45 =cut