Revision history for Perl extension Catalyst::View::TT.
+0.12 Xxx Xxx 00 00:00:00 2005
+ - Fixed constructor
+
0.12 Web Jul 06 15:24:00 2005
- Fixed, don't set Content-Type on failure
- Fixed helper to use [%author%]
use Template::Timer;
use NEXT;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
__PACKAGE__->mk_accessors('template');
=cut
sub new {
- my $self = shift;
- my $c = shift;
- $self = $self->NEXT::new(@_);
- my $root = $c->config->{root};
+ my ( $class, $c, $arguments ) = @_;
+
+ my $root = $c->config->{root};
+
my %config = (
EVAL_PERL => 0,
INCLUDE_PATH => [ $root, "$root/base" ],
- %{ $self->config() }
+ %{ $class->config },
+ %{ $arguments }
);
if ( $c->debug && not exists $config{CONTEXT} ) {
$config{CONTEXT} = Template::Timer->new(%config);
}
- $self->template( Template->new( \%config ) );
- return $self;
+ return $class->NEXT::new( $c, { template => Template->new( \%config ) } );
}
=item process