File Coverage

blib/lib/Pegex/Crontab/AST.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 4 0.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Pegex::Crontab::AST;
2 2     2   12 use Pegex::Base;
  2         4  
  2         14  
3             extends 'Pegex::Tree';
4              
5 2     2   9600 use lexicals;
  2         6270  
  2         520  
6              
7             sub cron_hash {
8 4     4 0 4 my ($min, $hour, $dom, $mon, $dow, $cmd) = @{(shift)};
  4         10  
9 4         13 lexicals;
10             }
11              
12             sub env_hash {
13 2     2 0 3 my ($var, $val) = @{(shift)};
  2         5  
14 2         7 lexicals;
15             }
16              
17             sub got_cron_line {
18 4     4 0 4513 my ($self, $node) = @_;
19 4         11 cron_hash($node);
20             }
21              
22             sub got_env_line {
23 2     2 0 3281 my ($self, $node) = @_;
24 2         25 env_hash($node);
25             }
26              
27             1;