File Coverage

blib/lib/Repl/Spec/Type/WhateverType.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition 1 3 33.3
subroutine 4 6 66.6
pod 0 3 0.0
total 18 29 62.0


line stmt bran cond sub pod time code
1             package Repl::Spec::Type::WhateverType;
2            
3 1     1   6 use strict;
  1         2  
  1         34  
4 1     1   5 use warnings;
  1         2  
  1         28  
5 1     1   6 use Carp;
  1         2  
  1         214  
6            
7             # No parameters.
8             sub new
9             {
10 1     1 0 2 my $invocant = shift;
11 1   33     11 my $class = ref($invocant) || $invocant;
12 1         3 my $self = {};
13 1         86 return bless $self, $class;
14             }
15            
16             sub guard
17             {
18 0     0 0   my $self = shift;
19 0           my $arg = shift;
20 0           return $arg;
21             }
22            
23             sub name
24             {
25 0     0 0   return 'whatever';
26             }
27            
28             1;