File Coverage

blib/lib/App/MigrateToTest2V0/CLI.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1             package App::MigrateToTest2V0::CLI;
2 3     3   108238 use strict;
  3         22  
  3         90  
3 3     3   17 use warnings;
  3         6  
  3         78  
4 3     3   879 use App::MigrateToTest2V0;
  3         8  
  3         101  
5 3     3   19 use Carp qw(croak);
  3         6  
  3         298  
6 3     3   1844 use PPI;
  3         360566  
  3         409  
7              
8             sub process {
9 2     2 0 2159 my ($class, @argv) = @_;
10              
11 2         8 for my $filename (@argv) {
12 2 50       35 croak "$filename not found" unless -e $filename;
13              
14 2         30 my $doc = PPI::Document->new($filename);
15 2         24120 my $migrated_doc = App::MigrateToTest2V0->apply($doc);
16 2         18 $migrated_doc->save($migrated_doc->filename);
17             }
18             }
19              
20             1;