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   490 use YAOO;
  72         81  
  72         371  
4              
5             extends 'ODS::Table::Column::Base';
6              
7 72     72   23596 use ODS::Utils qw/error/;
  72         140  
  72         360  
8              
9             sub validation {
10 34389 50   34389 0 299670 if (ref($_[1])) {
11 0         0 croak sprintf "The value passed to the %s column does not match the string constraint.",
12             $_[0]->name;
13             }
14 34389         71932 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__