$args{attributes} ||= {};
$args{required_methods} ||= [];
+ $args{roles} ||= [];
bless \%args, $class;
}
}
}
}
+
+ # append roles
+ push @{ $class->roles }, $self, @{ $self->roles };
}
for my $modifier_type (qw/before after around/) {
};
}
+sub roles { $_[0]->{roles} }
+
1;