File Coverage

blib/lib/Tree/Compat.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	27	92.5

package Tree::Compat;

use strict;
use warnings;

use UNIVERSAL::require;

our $VERSION = '1.00';

sub import {
    my $self = shift;
    foreach my $module ( @_ ) {
        $self->load( $module );
    }
}

my %mapping = (
    'Tree::Simple'   => 'Tree::Compat::Tree::Simple',
    'Tree::DAG_Node' => 'Tree::Compat::Tree::DAG_Node',
    'Tree::Nary'     => 'Tree::Compat::Tree::Nary',
);

sub load {
    my $self = shift;
    my $class = shift;

    unless ( exists $mapping{ $class } ) {
        die "'$class' doesn't have a compatibility layer written yet.\n";
    }

    $mapping{ $class }->require or die $UNIVERSAL::require::ERROR;
}

1;
__END__