--- trunk/lib/Frey/View.pm	2008/06/29 17:27:45	25
+++ trunk/lib/Frey/View.pm	2008/06/29 18:08:50	26
@@ -4,15 +4,31 @@
 use warnings;
 
 use Template::Declare::Tags; # defaults to 'HTML'
-use base 'Template::Declare';
+use Frey;
+use base qw/Template::Declare/;
 use Data::Dump qw/dump/;
+use Carp qw/carp/;
 
-template status => sub {
+sub debug_dump {
+	my $dump = dump( @_ );
+	carp "debug_dump $dump\n";
+	pre {
+		{ class is 'debug' }
+		outs $dump;
+	}
+}
+
+template 'status' => sub {
 	my ( $self ) = @_;
 	p { 'Welcome to Frey' }
+	show( 'templates' );
+	show( 'classes' );
+};
+
+template 'templates' => sub {
 	h1 { 'Available templates' };
 	my $templates = Template::Declare->templates;
-	warn "templates = ",dump( $templates );
+	debug_dump( $templates );
 	ul {
 		foreach my $pkg ( keys %$templates ) {
 			li {
@@ -30,15 +46,21 @@
 			}
 		}
 	}
-	pre {
-		{ class is 'debug' }
-		outs dump( Template::Declare->templates )
-	}
 };
 
-template 'refresh_modules' => sub {
-	Module::Refresh->refresh;
-	p { 'Modules refreshed' }
+template 'classes' => sub {
+	my $self = shift;
+	h1 { 'All classes in image' };
+	my $f = Frey->new;
+	debug_dump( $f->classes );
+};
+
+template 'error' => sub {
+	my $self = shift;
+	p {
+		{ class is 'error' }
+		outs( @_ );
+	}
 };
 
 1;