File Coverage

blib/lib/Class/DBI/View.pm
Criterion Covered Total %
statement 12 22 54.5
branch 0 4 0.0
condition n/a
subroutine 4 6 66.6
pod n/a
total 16 32 50.0


line stmt bran cond sub pod time code
1             package Class::DBI::View;
2              
3 1     1   734 use strict;
  1         2  
  1         43  
4 1     1   7 use vars qw($VERSION);
  1         2  
  1         58  
5             $VERSION = 0.07;
6              
7 1     1   2870 use UNIVERSAL::require;
  1         1658  
  1         11  
8              
9 0     0     sub _croak { require Carp; Carp::croak(@_) }
  0            
10              
11             sub import {
12 0     0     my($class, $strategy) = @_;
13 0           my $pkg = caller;
14              
15 0 0         defined $strategy or _croak("You should supply strategy for setup_view()");
16              
17 0           my $mod = "Class::DBI::View::$strategy";
18 0 0         $mod->require or _croak($UNIVERSAL::require::ERROR);
19 1     1   106 no strict 'refs';
  1         1  
  1         81  
20 0           *{"$pkg\::setup_view"} = \&{"$mod\::setup_view"};
  0            
  0            
21             }
22              
23             1;
24             __END__