File Coverage

blib/lib/Tangerine/hook/prefixedlist.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	7	10	70.0
condition	7	8	87.5
subroutine	11	11	100.0
pod	1	1	100.0
total	69	73	94.5

package Tangerine::hook::prefixedlist;
$Tangerine::hook::prefixedlist::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(stripquotelike $vre);

sub run {
    my ($self, $s) = @_;
    if ((any { $s->[0] eq $_ } qw(use no)) && scalar(@$s) > 2 &&
        (any { $s->[1] eq $_ } qw(Mo POE Tk::widgets))) {
        my ($version) = $s->[2] =~ $vre;
        $version //= '';
        my $voffset = $version ? 3 : 2;
        my @args;
        if (scalar(@$s) > $voffset) {
            return if $s->[$voffset] eq ';';
            @args = @$s;
            @args = @args[($voffset) .. $#args];
            @args = stripquotelike(@args);
        }
        my $prefix;
        if ($s->[1] eq 'Tk::widgets') {
            $prefix = 'Tk'
        } else {
            $prefix = $s->[1]
        }
        return Tangerine::HookData->new(
            modules => {
                map {
                    ( $prefix.'::'.$_ => Tangerine::Occurence->new() )
                    } @args,
                },
            );
    }
    return;
}

1;

__END__