File Coverage

blib/lib/Encode/InCharset.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	41	44	93.1

package Encode::InCharset;

use 5.007003;
use strict;
use warnings;

our $VERSION = do { my @r = (q$Revision: 0.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our $DEBUG = 1;

use Encode::InCharset::Config;
use Carp;

sub import{
    my $class = shift;
    my $callpkg = caller;
    my @sub = @_ ? @_ : sort keys %Encode::InCharset::Config::InPM;
    for my $sub (@sub){
	no strict 'refs';
	my $mod = $Encode::InCharset::Config::InPM{$sub} or
	    croak "Unknown property: $sub";
	my $modfile = $mod; $modfile =~ s,::,/,go;
	eval { require "$modfile.pm" };
	$@ and croak $@;
	*{"$callpkg\::$sub"} = \&{"$mod\::$sub"};
    }
}

1;
__END__