--- trunk/lib/HTML.pm	2008/06/29 13:12:59	21
+++ trunk/lib/Frey/HTML.pm	2008/06/29 16:24:41	23
@@ -1,4 +1,4 @@
-package HTML;
+package Frey::HTML;
 
 use strict;
 use warnings;
@@ -7,6 +7,14 @@
 use Data::Dump qw/dump/;
 use Carp qw/confess/;
 
+=head1 NAME
+
+Frey::HTML - generate html pages
+
+=head2 METHODS
+
+=cut
+
 # FIXME
 
 our @view_classes = qw(
@@ -27,6 +35,7 @@
 warn "available templates = ",dump( Template::Declare->templates );
 
 our @javascript;
+our $debug = 0;
 
 use Template::Declare;
 use Template::Declare::Tags; # defaults to 'HTML'
@@ -52,15 +61,32 @@
 		body {
 			$orig->();
 		}
-	}
-	warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t);
+	};
+	warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t) if $debug;
 });
 
-sub view {
+=head2 page
+
+Wrap template into html page
+
+  Frey::HTML->page( 'template_name', $req, $args );
+
+=cut
+
+sub page {
 	my $self = shift;
+	warn "## page $_[0]\n";
 	return Template::Declare->show( @_ );
 }
 
+=head2 add_javascript
+
+Add javascript to current page
+
+  Frey::HTML->add_javascript( 'static/javascript.js' );
+
+=cut
+
 sub add_javascript {
 	my $self = shift;
 	my $js = shift or confess "no JavaScript path";