File Coverage

blib/lib/Geoffrey/Role/Changelog.pm
Criterion Covered Total %
statement 30 36 83.3
branch n/a
condition 2 6 33.3
subroutine 13 16 81.2
pod 12 12 100.0
total 57 70 81.4


line stmt bran cond sub pod time code
1             package Geoffrey::Role::Changelog;
2              
3 5     5   3406 use utf8;
  5         25  
  5         31  
4 5     5   223 use 5.016;
  5         19  
5 5     5   24 use strict;
  5         18  
  5         112  
6 5     5   23 use warnings;
  5         9  
  5         2522  
7              
8             $Geoffrey::Role::Changelog::VERSION = '0.000205';
9              
10             sub new {
11 7     7 1 4668 my $class = shift;
12 7         16 my $self = {@_};
13 7         18 $self->{needs_converter} = 0;
14 7         16 $self->{needs_dbh} = 0;
15 7         33 return bless $self, $class;
16             }
17              
18             sub tpl_main {
19 1     1 1 7 require Geoffrey::Exception::NotSupportedException;
20 1         4 return Geoffrey::Exception::NotSupportedException::throw_file('tpl_main', $_[0]);
21             }
22              
23             sub tpl_sub {
24 1     1 1 7 require Geoffrey::Exception::NotSupportedException;
25 1         6 return Geoffrey::Exception::NotSupportedException::throw_file('tpl_sub', $_[0]);
26             }
27              
28             sub load {
29 1     1 1 16 require Geoffrey::Exception::NotSupportedException;
30 1         8 return Geoffrey::Exception::NotSupportedException::throw_file('load', $_[0]);
31             }
32              
33             sub write {
34 0     0 1 0 require Geoffrey::Exception::NotSupportedException;
35 0         0 return Geoffrey::Exception::NotSupportedException::throw_file('write', $_[0]);
36             }
37              
38             sub insert {
39 1     1 1 5 require Geoffrey::Exception::NotSupportedException;
40 1         3 return Geoffrey::Exception::NotSupportedException::throw_changelog('insert', shift);
41             }
42              
43             sub delete {
44 2     2 1 9 require Geoffrey::Exception::NotSupportedException;
45 2         8 return Geoffrey::Exception::NotSupportedException::throw_changelog('delete', shift);
46             }
47              
48             sub load_changeset {
49 0     0 1 0 require Geoffrey::Exception::NotSupportedException;
50 0         0 return Geoffrey::Exception::NotSupportedException::throw_io_call('load_changeset', shift);
51             }
52              
53 8   66 8 1 31 sub ending { $_[0]->{extension} //= $_[0]->{ending}; return $_[0]->{extension}; }
  8         2358  
54              
55 0   0 0 1 0 sub extension { $_[0]->{extension} //= $_[0]->{ending}; return $_[0]->{extension}; }
  0         0  
56              
57 12     12 1 41 sub needs_converter { return $_[0]->{needs_converter}; }
58              
59 13     13 1 38 sub needs_dbh { return $_[0]->{needs_dbh}; }
60              
61              
62             1; # End of Geoffrey::Role::Changelog
63              
64             __END__