--- trunk/lib/Frey/Web.pm	2008/07/17 19:11:01	160
+++ trunk/lib/Frey/Web.pm	2008/09/09 23:14:31	183
@@ -4,6 +4,7 @@
 use Continuity::Widget::DomNode;
 use Data::Dump qw/dump/;
 use Carp qw/confess/;
+use File::Slurp;
 
 has 'head' => (
 	is => 'rw',
@@ -11,23 +12,39 @@
 	default => sub { [ 'static/frey.css' ] },
 );
 
+has 'inline_smaller_than' => (
+	is => 'rw',
+	isa => 'Int',
+	default => 10240,
+);
+
 sub dom2html {
 #	warn "## dom2html ",dump( @_ );
 	return Continuity::Widget::DomNode->create( @_ )->to_string;
 }
 
+sub _inline_path {
+	my ( $self, $path ) = @_;
+	-s $path < $self->inline_smaller_than;
+}
+
 sub _head_html {
 	my $self = shift;
 	my $out = '';
 	foreach my $path ( @{ $self->head } ) {
 		$path =~ s!^/!!;
 		if ( $path =~ m/\.js$/ ) {
-			$out .= qq|<script type="text/javascript" src="/$path"></script>|;
+			$out .= $self->_inline_path( $path ) ?
+				qq|<!-- $path --><script type="text/javascript">\n| . read_file($path) . qq|\n</script>| :
+				qq|<script type="text/javascript" src="/$path"></script>|;
 		} elsif ( $path =~ m/\.css$/ ) {
-			$out .= qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|;
+			$out .= $self->_inline_path( $path ) ?
+				qq|<!-- $path --><style type="text/css">\n| . read_file( $path ) . qq|\n</style>| :
+				qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|;
 		} else {
 			confess "don't know how to render $path";
 		}
+		$out .= "\n";
 	}
 	return $out;
 }
@@ -60,6 +77,17 @@
 
 our $reload_counter = 0;
 
+
+=head2 page
+
+  $self->page(
+  	title => 'page title',
+	head  => '<!-- optional head markup -->',
+	body  => '<b>Page Body</b>',
+  );
+
+=cut
+
 sub page {
 	my $self = shift;
 	my $a = {@_};