File Coverage

File:C4/Patroncards/Template.pm
Coverage:61.9%

linestmtbrancondsubtimecode
1package C4::Patroncards::Template;
2
3
3
3
3
3
292
4
64
use strict;
4
3
3
3
3
13
4
201
use warnings;
5
6
3
3
3
3
14
3
382
use base qw(C4::Creators::Template);
7
8
3
3
3
3
19
7
85
use autouse 'Data::Dumper' => qw(Dumper);
9
10BEGIN {
11
3
3
3
3
3
3
285
8
25
241
    use version; our $VERSION = qv('1.0.0_1');
12}
13
14
3
3
3
3
130
3
74
use constant TEMPLATE_TABLE => 'creator_templates';
15
16__PACKAGE__ =~ m/^C4::(.+)::.+$/;
17my $me = $1;
18
19sub new {
20
0
0
    my $self = shift;
21
0
    push @_, "creator", $me;
22
0
    return $self->SUPER::new(@_);
23}
24
25sub retrieve {
26
0
0
    my $self = shift;
27
0
    push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
28
0
    return $self->SUPER::retrieve(@_);
29}
30
31sub delete {
32
0
0
    my $self = shift;
33
0
    push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
34
0
    return $self->SUPER::delete(@_);
35}
36
37sub save {
38
0
0
    my $self = shift;
39
0
    push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
40
0
    return $self->SUPER::save(@_);
41}
42
431;