File Coverage

blib/lib/BioX/FedDB.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package BioX::FedDB;
2 1     1   35209 use base qw(BioX::FedDB::Base);
  1         2  
  1         648  
3             use Class::Std;
4             use Class::Std::Utils;
5             use Module::Runtime qw(use_module);
6              
7             use warnings;
8             use strict;
9             use Carp;
10              
11             use version; our $VERSION = qv('0.0.1');
12              
13             {
14             no warnings 'redefine';
15             sub new {
16             my ($self, $arg_ref) = @_;
17             return use_module('BioX::FedDB::' . $arg_ref->{mode}, 0.0.1)->new( $arg_ref );
18             }
19             }
20              
21              
22              
23             1; # Magic true value required at end of module
24             __END__