File Coverage

blib/lib/Distribution/Metadata/Factory.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	3	0.0
total	28	33	84.8

package Distribution::Metadata::Factory;
use strict;
use warnings;
use Distribution::Metadata;

sub new {
    my ($class, %option) = @_;
    my $inc = $option{inc} || \@INC;
    if ($option{fill_archlib}) {
        $inc = Distribution::Metadata->_fill_archlib($inc);
    }
    bless { inc => $inc, cache => {} }, $class;
}

sub create_from_module {
    my ($self, $module) = @_;
    local $Distribution::Metadata::CACHE = $self->{cache};
    Distribution::Metadata->new_from_module($module, inc => $self->{inc});
}

sub create_from_file {
    my ($self, $file) = @_;
    local $Distribution::Metadata::CACHE = $self->{cache};
    Distribution::Metadata->new_from_file($file, inc => $self->{inc});
}

1;

__END__