File Coverage

blib/lib/Kavorka/Sub/Method.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 3 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1 37     37   16579 use 5.014;
  37         96  
2 37     37   138 use strict;
  37         46  
  37         752  
3 37     37   109 use warnings;
  37         52  
  37         851  
4              
5 37     37   134 use Kavorka::Parameter ();
  37         50  
  37         1811  
6              
7             package Kavorka::Sub::Method;
8              
9             our $AUTHORITY = 'cpan:TOBYINK';
10             our $VERSION = '0.037';
11              
12 37     37   128 use Moo;
  37         44  
  37         212  
13             with 'Kavorka::Sub';
14              
15 22     22 0 72 sub invocation_style { 'method' }
16              
17             sub default_attributes
18             {
19             return (
20 56     56 0 138 ['method'],
21             );
22             }
23              
24             sub default_invocant
25             {
26 52     52 0 52 my $self = shift;
27             return (
28 52         905 'Kavorka::Parameter'->new(
29             as_string => '$self:',
30             name => '$self',
31             traits => { invocant => 1 },
32             ),
33             );
34             }
35              
36             1;