Select Code to Download

for my $name (qw/ config components plugins methods hooks /) {
    my $method = "class_component_$name";
...
    *{__PACKAGE__."::$method"} = sub { shift->{"_$method"} };
}

sub new {
    my($class, $c, $args) = @_;
...
}

my @class_component = grep /^class_component_/ keys %$self ;

build_accessors(@class_component) unless $build_accessors++;