File Coverage

blib/lib/Kavorka/TraitFor/Sub/begin.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1 1     1   479 use 5.014;
  1         2  
2 1     1   3 use strict;
  1         1  
  1         20  
3 1     1   2 use warnings;
  1         2  
  1         58  
4              
5             package Kavorka::TraitFor::Sub::begin;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.037';
9              
10 1     1   3 use Moo::Role;
  1         1  
  1         5  
11 1     1   213 use namespace::sweep;
  1         1  
  1         7  
12              
13             around _build__tmp_name => sub
14             {
15             my $next = shift;
16             my $self = shift;
17            
18             return $self->$next(@_)
19             unless defined $self->invocation_style;
20            
21             $self->qualified_name or $self->$next(@_);
22             };
23              
24             1;