下書き
package DBIx::Class::Loader::Pluggable; use strict;
use base qw/DBIx::Class::Loader/;
require Module::Pluggable::Fast;
sub new {
my $class = shift;
my %attr = @_;
my $self = $class->SUPER::new(@_);
Module::Pluggable::Fast->import(
name => '_components',
require => 1,
search => [ $attr{namespace} ],
);
__PACKAGE__->_components;
$self;
}
1;