File Coverage

blib/lib/Enbld/Target/Attribute/CommandMake.pm
Criterion Covered Total %
statement 16 20 80.0
branch 1 4 25.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 22 31 70.9


line stmt bran cond sub pod time code
1             package Enbld::Target::Attribute::CommandMake;
2              
3 1     1   2583 use strict;
  1         2  
  1         31  
4 1     1   5 use warnings;
  1         2  
  1         27  
5              
6 1     1   6 use parent qw/Enbld::Target::AttributeExtension::Command/;
  1         2  
  1         5  
7              
8             sub initialize {
9 46     46 0 114 my ( $self, $param ) = @_;
10              
11 46 50       148 if ( ! defined $param ) {
12            
13 46         325 $self->{value} = $self->make_command;
14 46         136 $self->{is_evaluated}++;
15              
16 46         114 return $self;
17             }
18              
19 0 0       0 if ( $param ) {
20 0         0 $self->SUPER::initialize( $param );
21 0         0 return $self;
22             }
23              
24             # empty string is valid.
25 0         0 $self->{is_evaluated}++;
26             }
27              
28             sub validate {
29 56     56 0 141 my ( $self, $string ) = @_;
30              
31             # nothing check now.
32              
33 56         180 return $string;
34             }
35              
36             1;