File Coverage

blib/lib/ODS/Table/Column/String.pm
Criterion Covered Total %
statement 8 9 88.8
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 15 80.0


line stmt bran cond sub pod time code
1             package ODS::Table::Column::String;
2              
3 72     72   432 use YAOO;
  72         145  
  72         354  
4              
5             extends 'ODS::Table::Column::Base';
6              
7 72     72   22837 use ODS::Utils qw/error/;
  72         148  
  72         293  
8              
9             sub validation {
10 34453 50   34453 0 327340 if (ref($_[1])) {
11 0         0 croak sprintf "The value passed to the %s column does not match the integer constraint.",
12             $_[0]->name;
13             }
14 34453         72543 return $_[1];
15             }
16              
17             #sub inflation { return $_[1]; }
18              
19             #sub deflation { return $_[1]; }
20              
21             #sub coercion { return $_[1]; }
22              
23             1;
24              
25             __END__