view release on metacpan or  search on metacpan

lib/MooseX/DeepAccessors.pm  view on Meta::CPAN

package MooseX::DeepAccessors;
use Moose;
use Scalar::Util qw(blessed);
our $VERSION = '0.02';
extends 'Moose::Meta::Attribute';

has deep_accessors => ( is => 'ro', isa => 'HashRef', default => sub { {} } );

after 'attach_to_class' => sub {
    my ($attr, $class) = @_;

    foreach my $method_name (keys %{ $attr->deep_accessors }) {
        $class->add_method($method_name, 
            $attr->generate_deep_accessor($attr->deep_accessors->{$method_name})
        );
    }
};