File Coverage

examples/lib/My/Group.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1             package #hide
2             My::Group;
3 1     1   276 use base qw(My);
  1         1  
  1         54  
4 1     1   3 use strict;
  1         1  
  1         24  
5 1     1   3 use warnings;
  1         1  
  1         23  
6 1     1   2 use utf8;
  1         1  
  1         4  
7 1     1   15 use base qw(My);
  1         1  
  1         23  
8              
9 1     1   3 use constant TABLE => 'groups';
  1         2  
  1         51  
10 1     1   3 use constant COLUMNS => [qw(id group_name foo-bar data)];
  1         1  
  1         28  
11 1     1   3 use constant WHERE => {};
  1         1  
  1         26  
12              
13             #See Params::Check
14 1     1   3 use constant CHECKS => {};
  1         1  
  1         26  
15              
16             1;