File Coverage

blib/lib/Tangerine/hook/moduleruntime.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	6	6	100.0
condition	8	12	66.6
subroutine	13	13	100.0
pod	1	1	100.0
total	70	74	94.5

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

sub run {
    my ($self, $s) = @_;
    my @routines = qw(require_module use_module use_package_optimistically);
    if ((any { $s->[0] eq $_ } qw(use no)) && scalar(@$s) > 1 &&
        $s->[1] eq 'Module::Runtime') {
        return Tangerine::HookData->new( hooks => [
                Tangerine::hook::moduleruntime->new(type => 'runtime') ] );
    }
    # NOTE: For the sake of simplicity, we only check for one subroutine
    #       call per statement.
    if ($self->type eq 'runtime' && any { my $f = $_; any { $_ eq $f } @$s }
        @routines) {
        while (none { $s->[0] eq $_ } @routines) {
            shift @$s;
        }
        for (my $clip = 0; $clip <= $#$s && $clip < 3; $clip++) {
            if (any { $s->[$clip] eq $_ } qw(-> ;)) {
                @$s = @$s[0..$clip-1];
                last
            }
        }
        my @args = stripquotelike(@$s[1..$#$s]);
        return Tangerine::HookData->new(
            modules => {
                    $args[0] => Tangerine::Occurence->new(
                        version => $args[1]
                    ),
                },
            );
    }
}

1;

__END__