File Coverage

blib/lib/Net/IDN/Punycode.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Net::IDN::Punycode;
2              
3 13     13   67158 use 5.006;
  13         59  
4              
5 13     13   71 use strict;
  13         34  
  13         270  
6 13     13   73 use utf8;
  13         22  
  13         74  
7 13     13   338 use warnings;
  13         27  
  13         357  
8              
9 13     13   72 use Exporter;
  13         33  
  13         3179  
10              
11             our $VERSION = "2.499_20180929";
12             $VERSION = eval $VERSION;
13              
14             our @ISA = qw(Exporter);
15             our @EXPORT = ();
16             our @EXPORT_OK = ();
17             our %EXPORT_TAGS = ( 'all' => [ qw(encode_punycode decode_punycode) ], );
18             Exporter::export_ok_tags(keys %EXPORT_TAGS);
19             our $_NO_XS;
20              
21             eval {
22             die if $_NO_XS;
23             require XSLoader;
24             XSLoader::load('Net::IDN::Punycode');
25             };
26              
27             if (!defined(&encode_punycode)) {
28             require Net::IDN::Punycode::PP;
29             Net::IDN::Punycode::PP->import(qw(:all));
30             }
31              
32             1;
33             __END__