--- trunk/lib/Frey/Introspect.pm 2008/07/13 19:46:10 120 +++ trunk/lib/Frey/Introspect.pm 2008/07/14 21:22:43 121 @@ -138,18 +138,6 @@ while (1) { - my $js = $self->head_javascript; - $js .= << '__END_OF_JS__'; - -__END_OF_JS__ - my ( $class, $meta, $is_role ) = $self->load_package; my $package = $self->package; @@ -179,22 +167,16 @@ my $classes = qq|
| . - Frey::ClassBrowser->new->html_markup . + Frey::ClassBrowser->new->markup . qq|
|; - my $html = dom2html( - html => [ - head => [ - link => { rel=>"stylesheet", href=>"/static/app.css", type=>"text/css", media=>"screen" }, - $js, - title => [ 'Introspect ', $self->package ], - ], - body => [ - h1 => [ $self->package ], - $table, - $classes, - ], - ] + $self->add_css( 'static/introspect.css' ); + + warn "## css = ",dump( $self->css ); + + my $html = $self->page( + title => "Introspect $package", + body => "

$package

\n$table\n$classes", ); $request->print($html);