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   1264 use 5.008001;
  4         20  
3 4     4   20 use strict;
  4         8  
  4         77  
4 4     4   19 use warnings;
  4         21  
  4         608  
5              
6             our $VERSION = "0.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 24616 my ($class, $doc) = @_;
18              
19 14         63 for my $rule_class (@rules) {
20 70         4624 eval "require $rule_class";
21 70         430 $rule_class->apply($doc);
22             }
23              
24 14         195 return $doc;
25             }
26              
27             1;
28             __END__