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

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

revision 448 by dpavlin, Wed Nov 19 03:36:24 2008 UTC revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC
# Line 22  has 'status' => ( Line 22  has 'status' => (
22          isa => 'ArrayRef[HashRef[Str]]',          isa => 'ArrayRef[HashRef[Str]]',
23          lazy => 1,          lazy => 1,
24          default => sub { [          default => sub { [
25                  { 'Bookmarklets' => Frey::Bookmarklet->new->markup },                  { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup },
26                  { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->markup },                  { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup },
27          ] },          ] },
28  );  );
29    
# Line 168  sub page { Line 168  sub page {
168          my $url = $self->request_url;          my $url = $self->request_url;
169          $url =~ s{\?reload=\d+}{};          $url =~ s{\?reload=\d+}{};
170    
171          my $body = $a->{body} || $self->markup;          my $body = $a->{body} || $self->as_markup;
172          return $body if $self->content_type !~ m{html};          return $body if $self->content_type !~ m{html};
173          $body ||= '<!-- no body -->';          $body ||= '<!-- no body -->';
174    
# Line 206  sub error { Line 206  sub error {
206          return qq|<pre class="frey-error">$error</pre>|;          return qq|<pre class="frey-error">$error</pre>|;
207  }  }
208    
209    sub as_data {
210            my ($self) = @_;
211            $self->data;
212    }
213    
214    sub as_sponge {
215            my ($self) = @_;
216            $self->sponge;
217    }
218    
219  1;  1;
Legend:
Removed from v.448  
changed lines
  Added in v.455
  ViewVC Help
Powered by ViewVC 1.1.26