File Coverage

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

linestmtbrancondsubtimecode
1package C4::Patroncards::Template;
2
3
6
6
6
6
47733
32
157
use strict;
4
6
6
6
6
42
28
211
use warnings;
5
6
6
6
6
6
56
38
624
use base qw(C4::Creators::Template);
7
8
6
6
6
6
70
45
118
use autouse 'Data::Dumper' => qw(Dumper);
9
10BEGIN {
11
6
6
6
6
6
6
773
72
89
492
    use version; our $VERSION = qv('1.0.0_1');
12}
13
14
6
6
6
6
415
50
133
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;