File Coverage

blib/lib/Tangerine/hook/use.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition	7	8	87.5
subroutine	10	10	100.0
pod	1	1	100.0
total	56	57	98.2

package Tangerine::hook::use;
$Tangerine::hook::use::VERSION = '0.20';
use 5.010;
use strict;
use warnings;
use parent 'Tangerine::Hook';
use List::Util 1.33 qw(any);
use Tangerine::HookData;
use Tangerine::Occurence;
use Tangerine::Utils qw($vre);

sub run {
    my ($self, $s) = @_;
    if (scalar(@$s) > 1 && (any { $s->[0] eq $_ } qw(use no))) {
        return if $s->[1] eq ';';
        my $module = $s->[1];
        my ($version) = $s->[2] && $s->[2] =~ $vre;
        $version //= '';
        return Tangerine::HookData->new(
            modules => {
                $module => Tangerine::Occurence->new(
                    version => $version,
                    ),
                },
            ) unless $module =~ /^v?5(?:\..*)?$/;
    }
    return;
}

1;

__END__