File Coverage

lib/Jacode.pm
Criterion Covered Total %
statement 32 33 96.9
branch 3 6 50.0
condition n/a
subroutine 8 9 88.8
pod n/a
total 43 48 89.5


line stmt bran cond sub pod time code
1             package Jacode;
2             ######################################################################
3             #
4             # Jacode - Perl program for Japanese character code conversion
5             #
6             # Copyright (c) 2018, 2019 INABA Hitoshi in a CPAN
7             ######################################################################
8              
9             $VERSION = '2.13.4.23';
10             $VERSION = $VERSION;
11              
12 458     458   1553055 use 5.00503;
  458         4825  
13 458     458   2014 use strict;
  458         767  
  458         15369  
14 458 50   458   10428 BEGIN { $INC{'warnings.pm'} = '' if $] < 5.006 }; use warnings; $^W=1;
  458     458   2153  
  458         898  
  458         20544  
15 458     458   2559 use vars qw($AUTOLOAD);
  458         9330  
  458         101601  
16              
17             sub AUTOLOAD {
18 458 50   458   345489 return if $AUTOLOAD =~ /::DESTROY$/;
19              
20 458         3066 require File::Basename;
21 458         1066 require "@{[File::Basename::dirname(__FILE__)]}/\L@{[__PACKAGE__]}\E.pl";
  458         32347  
  458         2252541  
22 458         2408 (my $callee = $AUTOLOAD) =~ s<^@{[__PACKAGE__]}::><\L@{[__PACKAGE__]}\E::>;
  458         2815  
  458         7833  
23              
24 458     458   2863 no strict qw(refs);
  458         769  
  458         71041  
25 458         2058 *{$AUTOLOAD} = sub {
26 420074     420074   6624706 require Carp;
27 420074         519466 local $@;
28 420074         521506 my $return = eval {
29 420074         783617 &$callee;
30             };
31 420074 50       701639 if ($@) {
32 0         0 Carp::croak($@);
33             }
34 420074         643222 return $return;
35 458         2898 };
36              
37 458         2165 goto &$AUTOLOAD;
38             }
39              
40       0     sub DESTROY { }
41              
42             1;
43              
44             __END__