--- trunk/lib/Frey/View.pm	2008/06/29 15:40:26	22
+++ trunk/lib/Frey/View.pm	2008/06/29 16:24:41	23
@@ -10,11 +10,35 @@
 template status => sub {
 	my ( $self ) = @_;
 	p { 'Welcome to Frey' }
-	h1 { 'Available templates' }
+	h1 { 'Available templates' };
+	my $templates = Template::Declare->templates;
+	warn "templates = ",dump( $templates );
+	ul {
+		foreach my $pkg ( keys %$templates ) {
+			li {
+				outs $pkg;
+				ul {
+					foreach my $template ( @{ $templates->{$pkg} } ) {
+						li {
+							a {
+								{ href is "/$pkg/$template" }
+								$template
+							}
+						}
+					}
+				}
+			}
+		}
+	}
 	pre {
 		{ class is 'debug' }
 		outs dump( Template::Declare->templates )
 	}
 };
 
+template 'refresh_modules' => sub {
+	Module::Refresh->refresh;
+	p { 'Modules refreshed' }
+};
+
 1;