--- trunk/lib/Frey/Designer.pm	2008/11/01 00:58:24	224
+++ branches/zimbardo/lib/Frey/HTML/Designer.pm	2009/07/05 21:40:16	1172
@@ -1,9 +1,9 @@
-package Frey::Designer;
+package Frey::HTML::Designer;
 use Moose;
 
 =head1 NAME
 
-Frey::Designer - modify html (sometime in future)
+Frey::HTML::Designer - modify html (sometime in future)
 
 =cut
 
@@ -11,8 +11,7 @@
 #use MooseX::Types::URI qw(Uri FileUri DataUri);
 
 extends 'Frey';
-with 'Frey::Web';
-with 'Frey::Path';
+with 'Frey::Web', 'Frey::Path';
 
 has 'uri' => (
 	is => 'rw',
@@ -79,8 +78,8 @@
 	return $body;
 }
 
-sub request {
-    my ( $self, $req ) = @_;
+sub as_markup {
+    my ( $self ) = @_;
 
 	my $body = $self->get_page;
 
@@ -115,7 +114,6 @@
 
 	warn "<< ", $self->uri,
 		" ", -s $self->path,
-		" ", $req->params ? dump( $req->params ) : '',
 		"\n";
 
 =for later
@@ -139,7 +137,10 @@
 
 	warn $body;
 
-	$req->print( $self->page( title => $self->uri, body => $body ) );
+	return $self->html_page( title => $self->uri, body => $body );
 }
 
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
 1;