blib/lib/Acme/Auggy.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 9 | 9 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 4 | 4 | 100.0 |
pod | 2 | 2 | 100.0 |
total | 15 | 15 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 1 | 1 | 34001 | use strict; | |||
1 | 3 | ||||||
1 | 40 | ||||||
2 | 1 | 1 | 4 | use warnings; | |||
1 | 2 | ||||||
1 | 105 | ||||||
3 | package Acme::Auggy; | ||||||
4 | |||||||
5 | sub say_auggy { | ||||||
6 | 2 | 2 | 1 | 11 | return "Auggy"; | ||
7 | } | ||||||
8 | |||||||
9 | sub say_auggy_is { | ||||||
10 | 1 | 1 | 1 | 1113 | my ($is) = @_; | ||
11 | |||||||
12 | 1 | 4 | return say_auggy . ' is ' . $is; | ||||
13 | } | ||||||
14 | |||||||
15 | 1; | ||||||
16 | |||||||
17 | # ABSTRACT: Just a module for my talk | ||||||
18 | |||||||
19 | __END__ |