File Coverage

blib/lib/App/SCM/Digest/SCM/Factory.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	21	100.0

package App::SCM::Digest::SCM::Factory;

use strict;
use warnings;

use App::SCM::Digest::SCM::Git;
use App::SCM::Digest::SCM::Hg;

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

    my $pkg = 'App::SCM::Digest::SCM::'.(ucfirst (lc $name));
    return $pkg->new();
}

1;

__END__