--- trunk/lib/Frey/Web.pm 2008/11/27 21:31:02 564 +++ trunk/lib/Frey/Web.pm 2008/11/27 22:09:59 568 @@ -330,11 +330,15 @@ warn "## status parts ", dump( map { keys %$_ } @status ); } +=for debug + sub DEMOLISH { my ( $self ) = @_; warn "## $self DEMOLISH status ", $#status + 1, " elements ", dump( map { keys %$_ } @status ) if @status; } +=cut + =head2 add_icon Frey::Foo->add_icon; # /static/icons/Frey/Foo.png