下書き

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;
by typester / at 2006-01-24T19:59:00 / perl / Comments(0)