--- trunk/lib/Frey/Introspect.pm 2008/07/13 18:01:19 115 +++ trunk/lib/Frey/Introspect.pm 2008/07/13 18:01:40 116 @@ -155,13 +155,13 @@ my $methods; if ( $class->can('meta') ) { $methods = dom2html( - h2 => [ 'Methods' ], ul => [ map { ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_ ] ] ) } $self->methods ] ); + $methods = "

Methods

$methods" if $methods; } else { $methods = 'not introspectable'; } @@ -169,7 +169,6 @@ my $attributes; if ( $class->get_attribute_list ) { $attributes = dom2html( - h2 => [ 'Atrributes' ], table => [ map { my $attr = $class->get_attribute($_); @@ -181,6 +180,7 @@ } $class->get_attribute_list ], ); + $attributes = "

Attributes

$attributes" if $attributes; } else { $attributes = 'no attributes'; }