File Coverage

blib/lib/DBIx/Romani/IdGenerator.pm
Criterion Covered Total %
statement 3 17 17.6
branch 0 2 0.0
condition n/a
subroutine 1 7 14.2
pod 0 6 0.0
total 4 32 12.5


line stmt bran cond sub pod time code
1              
2             package DBIx::Romani::IdGenerator;
3              
4 1     1   7 use strict;
  1         2  
  1         196  
5              
6             sub new
7             {
8 0     0 0   my $class = shift;
9 0           my $args = shift;
10              
11 0           my $conn;
12              
13 0 0         if ( ref($args) eq 'HASH' )
14             {
15 0           $conn = $args->{conn};
16             }
17             else
18             {
19 0           $conn = $args;
20             }
21              
22 0           my $self = {
23             conn => $conn,
24             };
25            
26 0           bless $self, $class;
27 0           return $self;
28             }
29              
30 0     0 0   sub get_conn { return shift->{conn}; }
31              
32             sub is_before_insert
33             {
34 0     0 0   die "Abstract.";
35             }
36              
37             sub is_after_insert
38             {
39 0     0 0   die "Abstract.";
40             }
41              
42             sub get_id_method
43             {
44 0     0 0   die "Abstract.";
45             }
46              
47             sub get_id
48             {
49 0     0 0   die "Abstract.";
50             }
51              
52             1;
53