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   67491 use 5.006;
  13         57  
4              
5 13     13   77 use strict;
  13         22  
  13         284  
6 13     13   71 use utf8;
  13         25  
  13         74  
7 13     13   307 use warnings;
  13         29  
  13         373  
8              
9 13     13   68 use Exporter;
  13         25  
  13         3082  
10              
11             our $VERSION = "2.500";
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__