The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package CPAN::Packager::DownloaderFactory;
use strict;
use warnings;

sub create {
    my ( $class, $downloader, $config ) = @_;
    my $builder_class = join '::',
        ( 'CPAN', 'Packager', 'Downloader', $downloader );
    eval "require $builder_class;" or die "Can't load module $@"; ## no critic
    $builder_class->new;
}

1;

__END__

=head1 NAME

CPAN::Packager::DownloaderFactory - module downloader factory

=head1 SYNOPSIS


=head1 DESCRIPTION


=head1 AUTHOR

Takatoshi Kitano E<lt>kitano.tk@gmail.comE<gt>

=head1 SEE ALSO

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut