File Coverage

blib/lib/Enbld/Target/Attribute/CommandConfigure.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::CommandConfigure;
2              
3 1     1   1537 use strict;
  1         2  
  1         23  
4 1     1   3 use warnings;
  1         0  
  1         22  
5              
6 1     1   3 use parent qw/Enbld::Target::AttributeExtension::Command/;
  1         1  
  1         4  
7              
8             sub initialize {
9 46     46 0 84 my ( $self, $param ) = @_;
10              
11 46 50       128 if ( ! defined $param ) {
12 46         84 $self->{value} = './configure';
13 46         89 $self->{is_evaluated}++;
14              
15 46         99 return $self;
16             }
17              
18 0 0       0 if ( $param ) {
19 0         0 $self->SUPER::initialize( $param );
20 0         0 return $self;
21             }
22              
23             # empty string is valid.
24 0         0 $self->{is_evaluated}++;
25             }
26              
27             sub validate {
28 143     143 0 231 my ( $self, $string ) = @_;
29              
30             # nothing check now.
31              
32 143         318 return $string;
33             }
34              
35             1;