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         4  
4 1     1   6 no strict 'refs';
  1         2  
  1         28  
5 1     1   4 use warnings;
  1         2  
  1         104  
6              
7             sub import {
8 19     19   2606 my $pkg = $_[0];
9 19         43 my $caller = caller;
10              
11 19 100 100     104 if ($pkg eq __PACKAGE__ and @_ > 1 and $_[1] eq "import") {
      66        
12 8         17 *{$caller."::import"} = \&import;
  8         43  
13 8         2022 return;
14             }
15              
16 11 100       34 if (@_ > 1) {
17 1     1   8 use Exporter ();
  1         2  
  1         84  
18 1         88 goto &Exporter::import;
19             }
20              
21 10         17 my $from = \@{$pkg ."::CONVERTER"};
  10         41  
22 10         18 my $to = \@{$caller."::CONVERTER"};
  10         25  
23 10         149 unshift @$to, @$from;
24             }
25              
26             1;