47 |
template 'package-methods' => sub { |
template 'package-methods' => sub { |
48 |
my ( $self, $req, $package ) = @_; |
my ( $self, $req, $package ) = @_; |
49 |
$package ||= $req->param('package'); |
$package ||= $req->param('package'); |
50 |
my $templates = Template::Declare->templates->{ $package } or die "no package $package\n"; |
my $methods = Template::Declare->templates->{ $package } or die "no package $package\n"; |
51 |
package_methods( $package, $templates ); |
package_methods( $package, $methods ); |
52 |
}; |
}; |
53 |
|
|
54 |
template 'templates' => sub { |
template 'templates' => sub { |
67 |
|
|
68 |
template 'classes' => sub { |
template 'classes' => sub { |
69 |
my $self = shift; |
my $self = shift; |
70 |
h1 { 'All classes in image' }; |
h1 { 'All packages in image' }; |
71 |
my $f = Frey->new; |
my $f = Frey->new; |
72 |
debug_dump( $f->classes ); |
debug_dump( $f->classes ); |
73 |
}; |
}; |
74 |
|
|
75 |
template 'error' => sub { |
template 'error' => sub { |
76 |
my ( $self, $req, $error ) = shift; |
my ( $self, $req, $error ) = @_; |
77 |
$error ||= dump( caller(1) ); |
$error ||= dump( caller(1) ); |
78 |
warn "## error: $error\n"; |
warn "## error: $error\n"; |
79 |
pre { |
pre { |