File Coverage

blib/lib/Makefile/AST/Rule/Base.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 22 54.5


line stmt bran cond sub pod time code
1             package Makefile::AST::Rule::Base;
2              
3 2     2   12 use strict;
  2         4  
  2         55  
4 2     2   8 use warnings;
  2         3  
  2         45  
5 2     2   9 use base 'Class::Accessor::Fast';
  2         3  
  2         1079  
6              
7             __PACKAGE__->mk_ro_accessors(qw{
8             normal_prereqs order_prereqs commands colon
9             target
10             });
11              
12             sub add_command ($$) {
13 0     0 0   my ($self, $cmd) = @_;
14 0           push @{ $self->{commands} }, $cmd;
  0            
15             }
16              
17             sub has_command ($) {
18 0     0 0   my ($self) = @_;
19 0           return scalar @{ $self->commands };
  0            
20             }
21              
22             1;