File Coverage

blib/lib/Business/CPI/Util.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Business::CPI::Util;
2             # ABSTRACT: Utilities for Business::CPI
3 6     6   42 use warnings;
  6         13  
  6         212  
4 6     6   34 use strict;
  6         8  
  6         171  
5 6     6   31 use utf8;
  6         10  
  6         29  
6 6     6   1331 use Class::Load ();
  6         46451  
  6         695  
7              
8             our $VERSION = '0.923'; # VERSION
9              
10             sub load_class {
11 15     15 1 39 my ($driver_name, $class_name) = @_;
12 15         119 return Class::Load::load_first_existing_class(
13             "Business::CPI::${driver_name}::${class_name}",
14             "Business::CPI::Base::${class_name}"
15             );
16             }
17              
18             1;
19              
20             __END__