File Coverage

blib/lib/CogBase.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package CogBase;
2              
3 2     2   750 use 5.006001;
  2         127  
  2         96  
4 2     2   13 use strict;
  2         6  
  2         73  
5 2     2   13 use warnings;
  2         10  
  2         117  
6             our $VERSION = '0.10';
7              
8 2     2   683 use CogBase::Base -base;
  2         4  
  2         14  
9              
10             const connection_class => 'CogBase::Connection';
11              
12             sub connect {
13 1     1 1 12 my ($class, $path) = @_;
14 1         7 my $connection_class = $class->connection_class;
15 1 50       97 eval "require $connection_class; 1"
16             or die $@;
17 1         12 $connection_class->connection($path);
18             }
19              
20             __END__