File Coverage

blib/lib/Alzabo/ColumnDefinition.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 7 42.8
pod 4 4 100.0
total 16 28 57.1


line stmt bran cond sub pod time code
1             package Alzabo::ColumnDefinition;
2              
3 11     11   68 use strict;
  11         21  
  11         496  
4 11     11   67 use vars qw($VERSION);
  11         21  
  11         455  
5              
6 11     11   80 use Alzabo;
  11         24  
  11         2674  
7              
8             $VERSION = 2.0;
9              
10             1;
11              
12             sub type
13             {
14 0     0 1   my $self = shift;
15              
16 0           return $self->{type};
17             }
18              
19             sub length
20             {
21 0     0 1   my $self = shift;
22              
23 0           return $self->{length};
24             }
25              
26             sub precision
27             {
28 0     0 1   my $self = shift;
29              
30 0           return $self->{precision};
31             }
32              
33             sub owner
34             {
35 0     0 1   my $self = shift;
36              
37 0           return $self->{owner};
38             }
39              
40             __END__