File Coverage

blib/lib/Convert/CharMap.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	35	34.2

package Convert::CharMap;
$Convert::CharMap::VERSION = '0.10';

use 5.006;
use strict;
use warnings;

sub new {
    my $class = shift;
    return $class->load(@_);
}

sub load {
    my ( $class, $subclass, $file ) = @_;
    $class = ref($class) if ref($class);
    require "Convert/CharMap/$subclass.pm";

    my $self = "$class\::$subclass"->in($file);
    return bless( $self, $class );
}

sub save {
    my ( $self, $subclass, $file ) = @_;
    my $class = ref($self);
    require "Convert/CharMap/$subclass.pm";

    open my $fh, '>', $file or die "Can't open $file for writing: $!";
    print $fh "$class\::$subclass"->out($self);
    close $fh;
}

1;

__END__