File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	26	27	96.3

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;