File Coverage

blib/lib/DBIx/Inspector/ForeignKey.pm
Criterion Covered Total %
statement 15 20 75.0
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 0 1 0.0
total 20 30 66.6


line stmt bran cond sub pod time code
1             package DBIx::Inspector::ForeignKey;
2 1     1   9 use strict;
  1         2  
  1         42  
3 1     1   7 use warnings;
  1         2  
  1         28  
4 1     1   6 use utf8;
  1         2  
  1         5  
5 1     1   34 use Class::Accessor::Lite;
  1         2  
  1         9  
6             Class::Accessor::Lite->mk_accessors(qw/inspector/);
7              
8             sub new {
9 0     0 0   my $class = shift;
10 0 0         my %args = @_ == 1 ? %{ $_[0] } : @_;
  0            
11 0           bless {%args}, $class;
12             }
13              
14             {
15 1     1   188 no strict 'refs';
  1         1  
  1         132  
16             for my $k (
17             qw/PKTABLE_NAME FKTABLE_NAME FKCOLUMN_NAME PK_NAME DEFERABILITY FKTABLE_CAT PKTABLE_SCHEM KEY_SEQ PKTABLE_CAT UNIQUE_OR_PRIMARY FKTABLE_SCHEM PKCOLUMN_NAME DELETE_RULE FK_NAME/
18             )
19             {
20 0     0     *{ __PACKAGE__ . "::" . lc($k) } = sub { $_[0]->{$k} };
21             }
22             }
23              
24             1;
25             __END__