File Coverage

blib/lib/App/Mowyw/Datasource.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch	4	6	66.6
condition	1	3	33.3
subroutine	7	11	63.6
pod	0	5	0.0
total	39	56	69.6

package App::Mowyw::Datasource;
use strict;
use warnings;
use Carp qw(confess);

our %type_map = (
    xml     => 'XML',
    dbi     => 'DBI',
    array   => 'Array',
);

sub new {
    my ($base, $opts) = @_;
    my $type = lc($opts->{type}) or confess "No 'type' given";
    delete $opts->{type};
    my $type_name = $type_map{$type} || confess "Don't know what to do with datasource type '$type'";
    $type_name = "App::Mowyw::Datasource::$type_name";
    eval "use $type_name;";
    confess $@ if $@;
    my $obj =  eval $type_name . "->new(\$opts)" or confess $@;
    return $obj;
}

# these are stubs for inherited classes

sub reset        { confess "Called virtual method in base class!" }
sub get          { confess "Called virtual method in base class!" }
sub next         { confess "Called virtual method in base class!" }
sub is_exhausted { confess "Called virtual method in base class!" }

1;