Re^2: Problem generating builder functions with Moose for inherited objects

That seems to work, thanks! :) That puts the BUILD method in the Parent class at this:

sub BUILD {
    my $self = shift;
    my $meta = $self->meta;
    print("BUILD called for " . __PACKAGE__ . "\n");
    no strict;
    foreach my $build_attribute ($meta->get_all_attributes) {
        my $build_attname = $build_attribute->name;
        print("Creating builder for attribute [" . $build_attname . "]
+\n");
        if (!defined *{__PACKAGE__ . '::_build_' . $build_attname}) {
            *{__PACKAGE__ . '::_build_' . $build_attname} = sub {
                my $self = shift;
                my $meta = $self->meta;
                my $attribute = $meta->find_attribute_by_name($build_a
+ttname);
                if (!defined $attribute) { Carp::confess("Error: Can't
+ find attribute [$build_attname]\n"); }
                my $type_name = $attribute->type_constraint->name;
                #if ($attribute->type_constraint->is_a_type_of("ArrayR
+ef[Any]")) { return []; }
                if ($type_name =~ /^ArrayRef/) { return []; }
                #elsif ($attribute->type_constraint->is_a_type_of("Has
+hRef[Any]")) { return {}; }
                elsif ($type_name =~ /^HashRef/) { return []; }
                elsif ($attribute->type_constraint->equals("Str")) { r
+eturn ""; }
                elsif ($attribute->type_constraint->is_a_type_of("Num"
+)) { return 0; }
                else { return undef };
            };
        } 
    }
    use strict;
}
[download]

Unfortunately, the 2 commented lines didn't work out, so I had to replace them with a ->name regex match.

Comment on Re^2: Problem generating builder functions with Moose for inherited objects Download Code

Replies are listed 'Best First'.
Re^3: Problem generating builder functions with Moose for inherited objects by tospo (Hermit) on Sep 07, 2010 at 09:02 UTC
You have the Moose::Meta::Attribute object already in $build_attribute in the outer loop, so you can do your test simply on that one: `$result = $build_attribute->type_constraint->is_a_type_of('ArrayRef') +? 'it's an ArrayRef' :'not an ArrayRef';` [download] I just tried this in one of my Moose classes and it works for me that way.	[reply] [d/l]