File Coverage

blib/lib/Kavorka/Sub/Fun.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 17 25 68.0


line stmt bran cond sub pod time code
1 36     36   15558 use 5.014;
  36         728  
2 36     36   135 use strict;
  36         40  
  36         724  
3 36     36   111 use warnings;
  36         782  
  36         4858  
4              
5             package Kavorka::Sub::Fun;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.037';
9              
10 36     36   14081 use Moo;
  36         236416  
  36         175  
11             with 'Kavorka::Sub';
12              
13 8     8 0 31 sub invocation_style { 'fun' }
14              
15             sub forward_declare
16             {
17 0     0 0   my $self = shift;
18 0           my $name = $self->qualified_name;
19 0 0         eval sprintf("sub %s %s;", $name, $self->inject_prototype) if defined $name;
20             }
21              
22             1;