File Coverage

blib/lib/Kavorka/Sub/ClassMethod.pm
Criterion Covered Total %
statement 17 19 89.4
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 23 27 85.1


line stmt bran cond sub pod time code
1 2     2   800 use 5.014;
  2         5  
2 2     2   8 use strict;
  2         3  
  2         38  
3 2     2   6 use warnings;
  2         4  
  2         43  
4              
5 2     2   7 use Kavorka::Parameter ();
  2         2  
  2         24  
6 2     2   1095 use Types::Standard ();
  2         104238  
  2         182  
7              
8             package Kavorka::Sub::ClassMethod;
9              
10             our $AUTHORITY = 'cpan:TOBYINK';
11             our $VERSION = '0.037';
12              
13 2     2   12 use Moo;
  2         4  
  2         181  
14             extends 'Kavorka::Sub::Method';
15              
16             sub default_invocant
17             {
18 0     0 0   my $self = shift;
19             return (
20 0           'Kavorka::Parameter'->new(
21             name => '$class',
22             traits => { invocant => 1 },
23             type => Types::Standard::Str,
24             ),
25             );
26             }
27              
28             1;