File Coverage

blib/lib/Xtract/Column.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package Xtract::Column;
2              
3             # Object that represents a single column in the destination database.
4              
5 4     4   103 use 5.008005;
  4         15  
  4         172  
6 4     4   23 use strict;
  4         6  
  4         139  
7 4     4   24 use Carp ();
  4         10  
  4         217  
8 4     4   24 use Params::Util ();
  4         9  
  4         525  
9              
10             our $VERSION = '0.16';
11              
12              
13              
14              
15              
16             ######################################################################
17             # Constructor and Accessors
18              
19             sub new {
20 0     0 0   my $class = shift;
21 0           my $self = bless { @_ }, $class;
22              
23             # Check params
24 0           my $name = $self->name;
25 0 0         unless ( Params::Util::_IDENTIFIER($name) ) {
26 0           Carp::croak("Missing or invalid column name '$name'");
27             }
28              
29 0           return $self;
30             }
31              
32             1;