/[Frey]/branches/zimbardo/lib/Frey/HTML/Designer.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 /branches/zimbardo/lib/Frey/HTML/Designer.pm

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

trunk/lib/Frey/Designer.pm revision 224 by dpavlin, Sat Nov 1 00:58:24 2008 UTC branches/zimbardo/lib/Frey/HTML/Designer.pm revision 1172 by dpavlin, Sun Jul 5 21:40:16 2009 UTC
# Line 1  Line 1 
1  package Frey::Designer;  package Frey::HTML::Designer;
2  use Moose;  use Moose;
3    
4  =head1 NAME  =head1 NAME
5    
6  Frey::Designer - modify html (sometime in future)  Frey::HTML::Designer - modify html (sometime in future)
7    
8  =cut  =cut
9    
# Line 11  use Frey::Types; Line 11  use Frey::Types;
11  #use MooseX::Types::URI qw(Uri FileUri DataUri);  #use MooseX::Types::URI qw(Uri FileUri DataUri);
12    
13  extends 'Frey';  extends 'Frey';
14  with 'Frey::Web';  with 'Frey::Web', 'Frey::Path';
 with 'Frey::Path';  
15    
16  has 'uri' => (  has 'uri' => (
17          is => 'rw',          is => 'rw',
# Line 79  sub get_page { Line 78  sub get_page {
78          return $body;          return $body;
79  }  }
80    
81  sub request {  sub as_markup {
82      my ( $self, $req ) = @_;      my ( $self ) = @_;
83    
84          my $body = $self->get_page;          my $body = $self->get_page;
85    
# Line 115  sub request { Line 114  sub request {
114    
115          warn "<< ", $self->uri,          warn "<< ", $self->uri,
116                  " ", -s $self->path,                  " ", -s $self->path,
                 " ", $req->params ? dump( $req->params ) : '',  
117                  "\n";                  "\n";
118    
119  =for later  =for later
# Line 139  sub request { Line 137  sub request {
137    
138          warn $body;          warn $body;
139    
140          $req->print( $self->page( title => $self->uri, body => $body ) );          return $self->html_page( title => $self->uri, body => $body );
141  }  }
142    
143    __PACKAGE__->meta->make_immutable;
144    no Moose;
145    
146  1;  1;
Legend:
Removed from v.224  
changed lines
  Added in v.1172
  ViewVC Help
Powered by ViewVC 1.1.26