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__ |