--- 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';
}