--- trunk/lib/Frey/Web.pm 2008/07/17 22:26:21 163
+++ trunk/lib/Frey/Web.pm 2008/10/31 19:53:50 214
@@ -12,6 +12,13 @@
default => sub { [ 'static/frey.css' ] },
);
+=head2 inline_smaller_than
+
+Inline JavaScript and CSS smaller than this size into page reducing
+round-trips to server.
+
+=cut
+
has 'inline_smaller_than' => (
is => 'rw',
isa => 'Int',
@@ -77,6 +84,20 @@
our $reload_counter = 0;
+
+=head2 page
+
+ $self->page(
+ title => 'page title',
+ head => '',
+ body => 'Page Body',
+ );
+
+=cut
+
+use Frey::Bookmarklet;
+use Frey::ClassBrowser;
+
sub page {
my $self = shift;
my $a = {@_};
@@ -89,9 +110,14 @@
. ( $a->{head} || '' )
. ''
. ( $a->{body} || '' )
- . qq||
- . '