File Coverage

blib/lib/Encode/Punycode.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	2	4	50.0
condition			n/a
subroutine	7	9	77.7
pod	4	4	100.0
total	36	42	85.7

package Encode::Punycode;

use strict;
use utf8;
use warnings;

our $VERSION = '1.001';
$VERSION = eval $VERSION;

require Encode;
use base qw(Encode::Encoding);
__PACKAGE__->Define('Punycode', 'punycode');

use Net::IDN::Punycode();

sub encode {
  my($self, $string, $check) = @_;
  $string = Net::IDN::Punycode::encode_punycode($string);
  $_[1] = '' if $check;
  return $string;
}

sub decode {
  my($self, $string, $check) = @_;
  $string = Net::IDN::Punycode::decode_punycode($string);
  $_[1] = '' if $check;
  return $string;
}

sub mime_name {
  return undef;
};

sub perlio_ok {
  return 0;
}

1;
__END__