File Coverage

blib/lib/App/optex/textconv/Converter.pm
Criterion Covered Total %
statement 24 24 100.0
branch 4 4 100.0
condition 5 6 83.3
subroutine 5 5 100.0
pod n/a
total 38 39 97.4


line stmt bran cond sub pod time code
1             package App::optex::textconv::Converter;
2              
3 1     1   12 use v5.14;
  1         3  
4 1     1   6 no strict 'refs';
  1         2  
  1         30  
5 1     1   5 use warnings;
  1         2  
  1         102  
6              
7             sub import {
8 19     19   2582 my $pkg = $_[0];
9 19         45 my $caller = caller;
10              
11 19 100 100     107 if ($pkg eq __PACKAGE__ and @_ > 1 and $_[1] eq "import") {
      66        
12 8         17 *{$caller."::import"} = \&import;
  8         43  
13 8         1968 return;
14             }
15              
16 11 100       37 if (@_ > 1) {
17 1     1   8 use Exporter ();
  1         2  
  1         99  
18 1         99 goto &Exporter::import;
19             }
20              
21 10         19 my $from = \@{$pkg ."::CONVERTER"};
  10         41  
22 10         20 my $to = \@{$caller."::CONVERTER"};
  10         28  
23 10         143 unshift @$to, @$from;
24             }
25              
26             1;