--- trunk/lib/Frey/Introspect.pm 2008/10/31 19:59:16 215 +++ trunk/lib/Frey/Introspect.pm 2008/11/01 01:38:13 227 @@ -215,12 +215,16 @@ my $pod = Frey::Pod->new( class => $package )->markup; + use Frey::Run; + my $execute = join("\n", map { qq|$_| } grep { $package->can($_) } Frey::Run->execute ); + $execute = " execute: $execute" if $execute; + my $html = $self->page( title => "Introspect $package", body => qq|