File Coverage

blib/lib/Data/Dataset/Classic.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	38	52.6

package Data::Dataset::Classic;

use strict;
use warnings;
use utf8;

use Storable;
use Module::Load;

our $VERSION = '0.001';    # VERSION

# ABSTRACT: Classic datasets for examples, testing and illustrative purposes

sub _adapt {
    my $dataset = shift();
    my $data    = Storable::dclone($dataset);
    my %params  = @_;
    my $as      = $params{'as'};
    if ( defined $as ) {
        my $adapter_name = 'Data::Dataset::Classic::Adapter::' . $as;
        eval {
            Module::Load::load $adapter_name;
            my $adapter = $adapter_name->new();
            $data = $adapter->from($data);
        };
        if ($@) {
            warn 'Cannot load adapter: ' . $adapter_name . '. Returning data as a hashref. ' . $@;
        }
    }

    return $data;
}

1;

__END__