File Coverage

blib/lib/Test/Requires/Scanner/Result.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	6	66.6
condition	3	5	60.0
subroutine	6	6	100.0
pod	0	2	0.0
total	33	39	84.6

package Test::Requires::Scanner::Result;
use strict;
use warnings;

use version 0.77 ();

use Class::Accessor::Lite (
    new => 1,
);

sub modules {
    shift->{modules} ||= {};
}

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

    if (exists $self->modules->{$module}) {
        return unless $version;

        my $stored_version = $self->modules->{$module};

        if (
            !$stored_version ||
            version->parse($version) > version->parse($stored_version)
        ) {
            $self->modules->{$module} = $version;
        }
    }
    else {
        $self->modules->{$module} = $version;
    }
}

1;