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   67673 use 5.006;
  13         55  
4              
5 13     13   77 use strict;
  13         23  
  13         276  
6 13     13   65 use utf8;
  13         23  
  13         76  
7 13     13   332 use warnings;
  13         27  
  13         372  
8              
9 13     13   67 use Exporter;
  13         29  
  13         3200  
10              
11             our $VERSION = "1.102";
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__