--- trunk/lib/Frey/Introspect.pm 2008/11/26 07:58:40 534
+++ trunk/lib/Frey/Introspect.pm 2008/11/26 19:43:03 543
@@ -114,7 +114,7 @@
join(', ',
map {
my $name = $_->meta->name;
- qq|$name| . $_->meta->dump(2) . qq|
|;
+ $self->dropdown( $name, $_->meta )
}
#grep { $_ ne 'Moose::Object' }
$meta->superclasses
@@ -133,7 +133,7 @@
my $name = $_->name;
$role_method->{ $_ }->{$name} = $role_nr foreach $_->get_method_list;
$role_attribute->{ $_ }->{$name} = $role_nr foreach $_->get_attribute_list;
- qq|$name| . $name->meta->dump(2) . qq|
| . $role_nr++ . qq||;
+ $self->dropdown( $name, $name->meta ) . qq|| . $role_nr++ . qq||;
}
$meta->calculate_all_roles
);
@@ -170,10 +170,8 @@
if ( $getter eq $check ) {
$after .= "$check";
} else {
- $after .= qq{$check};
- # we need dump here instead of $attr->$getter->dump because default can return scalar
- $after .= '' . dump( $attr->$getter ) . '
' if $getter ne $check;
- $after .= '';
+ # we need our dump here instead of $attr->$getter->dump because default can return scalar
+ $after .= $self->dropdown( $check, $attr->$getter );
}
}
$after .= ' ';