File Coverage

blib/lib/App/MigrateToTest2V0.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package App::MigrateToTest2V0;
2 4     4   1497 use 5.008001;
  4         20  
3 4     4   22 use strict;
  4         9  
  4         98  
4 4     4   40 use warnings;
  4         10  
  4         629  
5              
6             our $VERSION = "0.01_02";
7              
8             our @rules = qw(
9             App::MigrateToTest2V0::Rule::ReplaceUseTestMoreToUseTest2V0
10             App::MigrateToTest2V0::Rule::ReplaceIsDeeplyToIs
11             App::MigrateToTest2V0::Rule::ReplaceIsaOkHASHOrArrayToRefOk
12             App::MigrateToTest2V0::Rule::Translate2ndArgumentOfIsaOkWithArrayRef
13             App::MigrateToTest2V0::Rule::AvoidNameConflictWithTestDeep
14             );
15              
16             sub apply {
17 14     14 0 29546 my ($class, $doc) = @_;
18              
19 14         69 for my $rule_class (@rules) {
20 70         5056 eval "require $rule_class";
21 70         578 $rule_class->apply($doc);
22             }
23              
24 14         229 return $doc;
25             }
26              
27             1;
28             __END__