File Coverage

blib/lib/DBIx/DBHResolver/Strategy.pm
Criterion Covered Total %
statement 15 17 88.2
branch 2 2 100.0
condition n/a
subroutine 5 7 71.4
pod 3 3 100.0
total 25 29 86.2


line stmt bran cond sub pod time code
1             package DBIx::DBHResolver::Strategy;
2              
3 7     7   3897 use strict;
  7         16  
  7         215  
4 7     7   40 use warnings;
  7         15  
  7         158  
5 7     7   36 use Carp;
  7         9  
  7         416  
6 7     7   35 use Data::Util qw(is_array_ref);
  7         20  
  7         1161  
7              
8             our $VERSION = '0.01';
9              
10 0     0 1 0 sub connect_info { croak 'Not implement'; }
11 0     0 1 0 sub resolve { croak 'Not implement'; }
12              
13             sub keys_from_args {
14 1205     1205 1 1799 my ( $class, $args ) = @_;
15 1205 100       5050 return is_array_ref( $args->{key} ) ? @{ $args->{key} } : ( $args->{key} );
  543         2133  
16             }
17              
18             1;
19              
20             __END__