File Coverage

blib/lib/Kavorka/Sub/ObjectMethod.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   852 use 5.014;
  2         4  
2 2     2   9 use strict;
  2         2  
  2         41  
3 2     2   6 use warnings;
  2         2  
  2         42  
4              
5 2     2   7 use Kavorka::Parameter ();
  2         1  
  2         34  
6 2     2   6 use Types::Standard ();
  2         2  
  2         91  
7              
8             package Kavorka::Sub::ObjectMethod;
9              
10             our $AUTHORITY = 'cpan:TOBYINK';
11             our $VERSION = '0.037';
12              
13 2     2   9 use Moo;
  2         1  
  2         8  
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 => '$self',
22             traits => { invocant => 1 },
23             type => Types::Standard::Object,
24             ),
25             );
26             }
27              
28             1;