blib/lib/Alien/m4.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 11 | 14 | 78.5 |
branch | 1 | 2 | 50.0 |
condition | n/a | ||
subroutine | 4 | 6 | 66.6 |
pod | 2 | 2 | 100.0 |
total | 18 | 24 | 75.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Alien::m4; | ||||||
2 | |||||||
3 | 3 | 3 | 333734 | use strict; | |||
3 | 13 | ||||||
3 | 81 | ||||||
4 | 3 | 3 | 13 | use warnings; | |||
3 | 5 | ||||||
3 | 79 | ||||||
5 | 3 | 3 | 14 | use base qw( Alien::Base ); | |||
3 | 5 | ||||||
3 | 1571 | ||||||
6 | |||||||
7 | # ABSTRACT: Find or build GNU m4 | ||||||
8 | our $VERSION = '0.20'; # VERSION | ||||||
9 | |||||||
10 | |||||||
11 | sub alien_helper | ||||||
12 | { | ||||||
13 | 0 | 0 | 1 | 0 | my($class) = @_; | ||
14 | return { | ||||||
15 | 0 | 0 | 0 | m4 => sub { $class->exe }, | |||
16 | 0 | 0 | }; | ||||
17 | } | ||||||
18 | |||||||
19 | sub exe | ||||||
20 | { | ||||||
21 | 2 | 2 | 1 | 283120 | my($class) = @_; | ||
22 | 2 | 50 | 16 | $class->runtime_prop->{command} || 'm4'; | |||
23 | } | ||||||
24 | |||||||
25 | 1; | ||||||
26 | |||||||
27 | __END__ |