File Coverage

blib/lib/App/MigrateToTest2V0/Rule/Translate2ndArgumentOfIsaOkWithArrayRef.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	0	1	0.0
total	16	38	42.1

package App::MigrateToTest2V0::Rule::Translate2ndArgumentOfIsaOkWithArrayRef;
use strict;
use warnings;
use parent 'App::MigrateToTest2V0::Rule';
use PPIx::Utils qw(parse_arg_list);

sub apply {
    my ($class, $doc) = @_;

    my $stmts = $doc->find(sub {
        my (undef, $elem) = @_;
        return $elem->isa('PPI::Statement') && $elem->first_token && $elem->first_token->content eq 'isa_ok';
    });
    return unless $stmts;

    for my $stmt (@$stmts) {
        my $second_arg = (parse_arg_list($stmt->first_token))[1]->[0];
        next unless $second_arg;

        my $first_paren = PPI::Token::Structure->new('[');
        my $last_paren = PPI::Token::Structure->new(']');
        $second_arg->insert_before($first_paren);
        $second_arg->insert_after($last_paren);
    }
}

1;