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

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

revision 183 by dpavlin, Tue Sep 9 23:14:31 2008 UTC revision 206 by dpavlin, Thu Oct 30 22:35:11 2008 UTC
# Line 12  has 'head' => ( Line 12  has 'head' => (
12          default => sub { [ 'static/frey.css' ] },          default => sub { [ 'static/frey.css' ] },
13  );  );
14    
15    =head2 inline_smaller_than
16    
17    Inline JavaScript and CSS smaller than this size into page reducing
18    round-trips to server.
19    
20    =cut
21    
22  has 'inline_smaller_than' => (  has 'inline_smaller_than' => (
23          is => 'rw',          is => 'rw',
24          isa => 'Int',          isa => 'Int',
# Line 88  our $reload_counter = 0; Line 95  our $reload_counter = 0;
95    
96  =cut  =cut
97    
98    use Frey::Bookmarklet;
99    
100  sub page {  sub page {
101          my $self = shift;          my $self = shift;
102          my $a = {@_};          my $a = {@_};
# Line 100  sub page { Line 109  sub page {
109          . ( $a->{head} || '' )          . ( $a->{head} || '' )
110          . '</head><body>'          . '</head><body>'
111          . ( $a->{body} || '<!-- no body -->' )          . ( $a->{body} || '<!-- no body -->' )
112          . qq|<div class="frey-status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>|          . qq|<div class="frey-status-line">
113                    <a href="/">Frey</a> $Frey::VERSION
114                    <a href="?reload=$reload_counter">reload</a>
115                    <span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span>|
116          . '</body></html>'          . '</body></html>'
117          ;          ;
118    

Legend:
Removed from v.183  
changed lines
  Added in v.206

  ViewVC Help
Powered by ViewVC 1.1.26