--- trunk/lib/Frey/Server.pm	2008/07/02 12:36:59	48
+++ trunk/lib/Frey/Server.pm	2008/07/05 15:19:55	53
@@ -5,10 +5,12 @@
 
 use Continuity;
 #use Continuity::REPL;
+use Continuity::Widget::DomNode;
 use Data::Dump qw/dump/;
 
 use base 'Frey';
 use Frey::HTML;
+use Frey::ObjectBrowser;
 
 my @messages;    # Global (shared) list of messages
 my $got_message; # Flag to indicate that there is a new message to display
@@ -41,6 +43,11 @@
 	warn $req->request->header('User_Agent');
 #warn dump( $req );
 
+	if ( $path =~ m!/~/([^/]+)(?:/([^/]*))?! ) {
+		my $f = Frey::Introspect->new( package => $1 );
+		$f->html( $req );
+	}
+
 	# If this is a request for the pushtream, then give them that
 	if($path =~ /pushstream/) {
 		pushstream($req);
@@ -51,6 +58,10 @@
 		send_message($req);
 	}
 
+	if($path =~ m!^/ob!) {
+		Frey::ObjectBrowser->new( req => $req )->html;
+	}
+
 	# Otherwise, lets give them page
 	send_page($req);
 }
@@ -110,7 +121,7 @@
 				$req->conn->send_status_line( 404, "$module" );
 				$html = "Package $module not found";
 			} elsif ( ! $method ) {
-				$html = Frey::HTML->page( 'package-methods', $req, $module );
+				$html = Frey::HTML->page( 'package-templates', $req, $module );
 			} elsif ( grep(/^\Q$method\E$/, @{ $templates->{$module} }) ) {
 				$html = Frey::HTML->page( $method, $req );
 			} else {