File Coverage

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

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	27	44.4

package App::MigrateToTest2V0::Rule::ReplaceIsDeeplyToIs;
use strict;
use warnings;
use parent 'App::MigrateToTest2V0::Rule';

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

    my $tokens = $doc->find(sub {
        my (undef, $elem) = @_;
        return $elem->isa('PPI::Token') && $elem->content eq 'is_deeply';
    });
    return unless $tokens;

    for my $token (@$tokens) {
        $token->set_content('is');
    }
}

1;