--- trunk/lib/Frey/Web.pm 2008/07/14 21:22:43 121
+++ trunk/lib/Frey/Web.pm 2008/07/16 14:14:18 142
@@ -43,10 +43,14 @@
return $out;
}
+our $reload_counter = 0;
+
sub page {
my $self = shift;
my $a = {@_};
+ $reload_counter++;
+
my $html = qq||
. _unroll_markup( qq||, $self->javascript )
. _unroll_markup( qq||, $self->css )
@@ -54,7 +58,7 @@
. ( $a->{head} || '' )
. ''
. ( $a->{body} || '' )
- . qq||
+ . qq||
. ''
;