File Coverage

blib/lib/App/optex/textconv/Converter.pm
Criterion Covered Total %
statement 23 24 95.8
branch 3 4 75.0
condition 5 6 83.3
subroutine 5 5 100.0
pod n/a
total 36 39 92.3


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