File Coverage

testlib/Cikl/Models/Address/TestClass.pm
Criterion Covered Total %
statement 21 26 80.7
branch n/a
condition n/a
subroutine 7 9 77.7
pod 0 4 0.0
total 28 39 71.7


line stmt bran cond sub pod time code
1             package Cikl::Models::Address::TestClass;
2 6     6   19912 use base qw(Test::Class);
  6         17  
  6         10353  
3 6     6   389356 use strict;
  6         18  
  6         297  
4 6     6   33 use warnings;
  6         14  
  6         210  
5 6     6   8907 use Test::More;
  6         63261  
  6         72  
6 6     6   11050 use Mouse::Util::TypeConstraints;
  6         175833  
  6         46  
7              
8 0     0 0 0 sub testing_class { die("testing_class not implemented!") }
9              
10             sub safe_generate {
11 0     0 0 0 my $self = shift;
12 0         0 my $value = shift;
13 0         0 return eval { $self->generate($value) };
  0         0  
14             }
15              
16             sub generate {
17 59     59 0 136861 my $self = shift;
18 59         133 my $value = shift;
19 59         220 return $self->testing_class()->new(value => $value);
20             }
21              
22             sub generate_normalized {
23 18     18 0 8208 my $self = shift;
24 18         30 my $value = shift;
25 18         58 return $self->testing_class()->new_normalized(value => $value);
26             }
27              
28             # Make sure we don't run this test helper directly.
29             __PACKAGE__->SKIP_CLASS(1);
30              
31             1;
32