/[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 161 by dpavlin, Thu Jul 17 19:33:51 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 35  sub _head_html { Line 42  sub _head_html {
42                  $path =~ s!^/!!;                  $path =~ s!^/!!;
43                  if ( $path =~ m/\.js$/ ) {                  if ( $path =~ m/\.js$/ ) {
44                          $out .= $self->_inline_path( $path ) ?                          $out .= $self->_inline_path( $path ) ?
45                                  qq|<script type="text/javascript">| . read_file($path) . qq|</script>| :                                  qq|<!-- $path --><script type="text/javascript">\n| . read_file($path) . qq|\n</script>| :
46                                  qq|<script type="text/javascript" src="/$path"></script>|;                                  qq|<script type="text/javascript" src="/$path"></script>|;
47                  } elsif ( $path =~ m/\.css$/ ) {                  } elsif ( $path =~ m/\.css$/ ) {
48                          $out .= $self->_inline_path( $path ) ?                          $out .= $self->_inline_path( $path ) ?
49                                  qq|<style type="text/css">| . read_file( $path ) . qq|</style>| :                                  qq|<!-- $path --><style type="text/css">\n| . read_file( $path ) . qq|\n</style>| :
50                                  qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|;                                  qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|;
51                  } else {                  } else {
52                          confess "don't know how to render $path";                          confess "don't know how to render $path";
53                  }                  }
54                    $out .= "\n";
55          }          }
56          return $out;          return $out;
57  }  }
# Line 76  sub add_head { Line 84  sub add_head {
84    
85  our $reload_counter = 0;  our $reload_counter = 0;
86    
87    
88    =head2 page
89    
90      $self->page(
91            title => 'page title',
92            head  => '<!-- optional head markup -->',
93            body  => '<b>Page Body</b>',
94      );
95    
96    =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 88  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.161  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.26