File Coverage

lib/SQL/Admin/Catalog/Table/Object.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1              
2             package SQL::Admin::Catalog::Table::Object;
3 2     2   1502 use base qw( SQL::Admin::Catalog::Object );
  2         4  
  2         199  
4              
5 2     2   11 use strict;
  2         5  
  2         67  
6 2     2   11 use warnings;
  2         4  
  2         274  
7              
8             our $VERSION = v0.5.0;
9              
10             ######################################################################
11             ######################################################################
12             sub table { # ;
13 36     36 0 51 my $self = shift;
14 36 100       88 if (@_) {
15 9         37 $self->{table} = shift;
16 9         19 delete $self->{fullname};
17             }
18 36         157 $self->{table};
19             }
20              
21              
22             ######################################################################
23             ######################################################################
24              
25             package SQL::Admin::Catalog::Table::Object;
26              
27             1;