File Coverage

lib/Dist/Zilla/Util/RoleDB/Entry/Phase.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1 3     3   651 use 5.006;
  3         5  
  3         83  
2 3     3   10 use strict;
  3         3  
  3         64  
3 3     3   16 use warnings;
  3         2  
  3         147  
4              
5             package Dist::Zilla::Util::RoleDB::Entry::Phase;
6              
7             our $VERSION = '0.004000'; # TRIAL
8              
9             # ABSTRACT: Extracted meta-data about a role that represents a phase
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 3     3   402 use Moo qw( has extends );
  3         9442  
  3         13  
14 3     3   1437 use Carp qw( croak );
  3         3  
  3         365  
15              
16             ## no critic (NamingConventions)
17             my $is_Str = sub { 'SCALAR' eq ref \$_[0] or 'SCALAR' eq ref \( my $val = $_[0] ) };
18              
19             extends 'Dist::Zilla::Util::RoleDB::Entry';
20              
21              
22              
23              
24              
25              
26              
27             sub is_phase {
28 24     24 1 25 return 1;
29             }
30              
31              
32              
33              
34              
35              
36              
37             has phase_method => (
38             isa => sub { $is_Str->( $_[0] ) or croak 'phase_method must be a Str' },
39             is => ro =>,
40             required => 1,
41             documentation => q[The method dzil calls on the phase],
42             );
43              
44 3     3   12 no Moo;
  3         2  
  3         11  
45             1;
46              
47             __END__