/[Frey]/trunk/lib/Frey/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by dpavlin, Sun Jun 29 20:13:46 2008 UTC revision 32 by dpavlin, Sun Jun 29 20:52:33 2008 UTC
# Line 47  sub package_methods { Line 47  sub package_methods {
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 {
# Line 67  template 'templates' => sub { Line 67  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 {
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.26