--- trunk/lib/Frey/View.pm 2008/06/29 20:49:42 31 +++ trunk/lib/Frey/View.pm 2008/06/29 20:52:33 32 @@ -47,8 +47,8 @@ template 'package-methods' => sub { my ( $self, $req, $package ) = @_; $package ||= $req->param('package'); - my $templates = Template::Declare->templates->{ $package } or die "no package $package\n"; - package_methods( $package, $templates ); + my $methods = Template::Declare->templates->{ $package } or die "no package $package\n"; + package_methods( $package, $methods ); }; template 'templates' => sub { @@ -67,13 +67,13 @@ template 'classes' => sub { my $self = shift; - h1 { 'All classes in image' }; + h1 { 'All packages in image' }; my $f = Frey->new; debug_dump( $f->classes ); }; template 'error' => sub { - my ( $self, $req, $error ) = shift; + my ( $self, $req, $error ) = @_; $error ||= dump( caller(1) ); warn "## error: $error\n"; pre {