4
4
no warnings 'redefine';
5
our $VERSION = do { my @r = ( q$Revision: 2.14 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
5
our $VERSION = do { my @r = ( q$Revision: 2.15 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
6
use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
8
8
use base qw(Exporter);