- or download this
for my $name (qw/ config components plugins methods hooks /) {
my $method = "class_component_$name";
...
*{__PACKAGE__."::$method"} = sub { shift->{"_$method"} };
}
- or download this
sub new {
my($class, $c, $args) = @_;
...
}
- or download this
my @class_component = grep /^class_component_/ keys %$self ;
- or download this
build_accessors(@class_component) unless $build_accessors++;