File Coverage

blib/lib/EPublisher/Source.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	29	29	100.0

package EPublisher::Source;

# ABSTRACT:  Container for Source plugins

use strict;
use warnings;
use Carp;

our $VERSION = 0.02;

sub new{
    my ($class,$args) = @_;
    my $self;

    croak 'No source type given' if !$args->{type};

    my $plugin = 'EPublisher::Source::Plugin::' . $args->{type};
    eval{
        (my $file = $plugin) =~ s!::!/!g;
        $file .= '.pm';

        require $file;
        $self = $plugin->new( $args );
    };

    croak "Problems with $plugin: $@" if $@;

    return $self;
}

1;

__END__