File Coverage

blib/lib/Net/SinFP3/DB.pm
Criterion Covered Total %
statement 9 21 42.8
branch 0 2 0.0
condition n/a
subroutine 3 8 37.5
pod 5 5 100.0
total 17 36 47.2


line stmt bran cond sub pod time code
1             #
2             # $Id: DB.pm 2234 2014-04-08 13:05:14Z gomor $
3             #
4             package Net::SinFP3::DB;
5 1     1   532 use strict;
  1         2  
  1         33  
6 1     1   4 use warnings;
  1         1  
  1         31  
7              
8 1     1   3 use base qw(Class::Gomor::Array);
  1         1  
  1         242  
9             our @AS = qw(
10             global
11             );
12             __PACKAGE__->cgBuildIndices;
13             __PACKAGE__->cgBuildAccessorsScalar(\@AS);
14              
15             sub new {
16 0     0 1   my $self = shift->SUPER::new(
17             @_,
18             );
19              
20 0 0         if (!defined($self->global)) {
21 0           die("[-] ".__PACKAGE__.": You must provide a global object\n");
22             }
23              
24 0           return $self;
25             }
26              
27             sub update {
28 0     0 1   my $self = shift;
29 0           return $self;
30             }
31              
32             sub init {
33 0     0 1   my $self = shift;
34 0           return $self;
35             }
36              
37             sub run {
38 0     0 1   my $self = shift;
39 0           return $self;
40             }
41              
42             sub post {
43 0     0 1   my $self = shift;
44 0           return $self;
45             }
46              
47             1;
48              
49             __END__