File Coverage

blib/lib/Tangerine/hook/if.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	10	12	83.3
condition	16	29	55.1
subroutine	9	9	100.0
pod	1	1	100.0
total	73	88	82.9

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


sub run {
    my ($self, $s) = @_;
    if ((any { $s->[0] eq $_ } qw(use no)) &&
        scalar(@$s) > 3 && $s->[1] eq 'if') {
        my ($version) = $s->[2] =~ $vre;
        $version //= '';
        my $voffset = $version ? 3 : 2;
        my ($depth, $index) = (0, 0);
        for ($index = $voffset; $index < $#$s; $index++) {
            my $token = $s->[$index];
            $depth++ if ($token eq '[' || $token eq '{' || $token eq '(');
            $depth-- if ($token eq ']' || $token eq '}' || $token eq ')');
            last if ($token eq ';' || !$depth &&
                ($token eq ',' || $token eq '=>'));
        }
        $index++;
        if ($s->[$index]) {
            $s->[$index] = stripquotelike($s->[$index]);
            return Tangerine::HookData->new(
                children => [ $s->[0], @$s[$index..$#$s] ],
                );
        }
    }
    return;
}

1;

__END__