--- trunk/lib/Frey/Web.pm	2008/11/25 14:14:21	516
+++ trunk/lib/Frey/Web.pm	2008/11/25 14:58:59	518
@@ -7,7 +7,7 @@
 
 use Continuity::Widget::DomNode;
 use Data::Dump qw/dump/;
-use Carp qw/confess/;
+use Carp qw/confess cluck/;
 use File::Slurp;
 
 use Frey::Bookmarklet;
@@ -25,8 +25,8 @@
 	isa => 'ArrayRef[HashRef[Str]]',
 	lazy => 1,
 	default => sub { [
-		{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup },
-		{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup },
+#		{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup },
+#		{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup },
 	] },
 );
 
@@ -157,11 +157,6 @@
 
 	my $status_line = '';
 	foreach my $part ( @{ $self->status } ) {
-		if ( ref($part) ne 'HASH' ) {
-			warn "part not hash ",dump( $part ) ;
-			#$self->status( $part );
-			next;
-		}
 		foreach my $name ( keys %$part ) {
 			my $content = $part->{$name};
 			if ( ref($content) ) {
@@ -304,7 +299,11 @@
 sub add_status {
 	my ( $self, $data ) = @_;
 	push @{ $self->status }, $data;
-	warn "## current status ", $#{ $self->status }, " elements";
+}
+
+sub DEMOLISH {
+	my ( $self ) = @_;
+	cluck "## DEMOLISH status ", $#{ $self->status } + 1, " elements ", dump( map { keys %$_ } @{ $self->status } );
 }
 
 1;