--- trunk/lib/Frey/Introspect.pm 2008/10/28 20:46:35 197
+++ trunk/lib/Frey/Introspect.pm 2008/10/28 21:24:07 198
@@ -155,7 +155,7 @@
my $attr = $meta->get_attribute($_);
my ( $before, $title, $after ) = ( '', '', '' );
( $before, $title, $after ) = ( '', ' title="required"', '' ) if $attr->is_required;
-warn $attr->dump;
+warn $attr->dump(3);
foreach my $check ( qw/has_type_constraint has_handles is_weak_ref is_required is_lazy should_coerce should_auto_deref has_trigger has_documentation has_applied_traits/ ) {
my $getter;
@@ -195,7 +195,10 @@
if ( $meta->superclasses ) {
$superclasses = 'Superclasses: ' .
join(', ',
- map { my $s = $_->meta->name; qq|$s| }
+ map {
+ my $name = $_->meta->name;
+ qq||;
+ }
#grep { $_ ne 'Moose::Object' }
$meta->superclasses
);