File Coverage

blib/lib/Module/Format/ModuleList.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	4	6	66.6
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	61	65	93.8

package Module::Format::ModuleList;
$Module::Format::ModuleList::VERSION = '0.4.0';
use warnings;
use strict;


use Module::Format::Module;


sub new
{
    my $class = shift;
    my $self  = bless {}, $class;
    $self->_init(@_);
    return $self;
}

sub _modules
{
    my $self = shift;

    if (@_)
    {
        $self->{_modules} = shift;
    }

    return $self->{_modules};
}

sub _add_module
{
    my ( $self, $module ) = @_;

    if ( not $module->isa('Module::Format::Module') )
    {
        die "Module is " . ref($module) . " instead of Module::Format::Module.";
    }

    push @{ $self->_modules() }, $module;

    return;
}

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

    $self->_modules( [] );

    foreach my $module ( @{ $args->{modules} } )
    {
        $self->_add_module($module);
    }

    return;
}


sub get_modules_list_copy
{
    my ($self) = @_;

    return [ @{ $self->_modules() } ];
}


sub format_as
{
    my ( $self, $format ) = @_;

    return [ map { $_->format_as($format) } @{ $self->_modules() } ];
}


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

    my @modules;

    foreach my $string ( @{ $args->{'values'} } )
    {
        my $module = Module::Format::Module->from_guess( { value => $string } );

        if ( !$module->is_sane() )
        {
            die "Value '$string' does not evaluate as a sane module.";
        }

        push @modules, $module;
    }

    return $class->new( { modules => \@modules } );
}


1;    # End of Module::Format::ModuleList

__END__