File Coverage

blib/lib/Acme/Scurvy/Whoreson/BilgeRat/Backend/pirate.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Acme::Scurvy::Whoreson::BilgeRat::Backend::pirate;
2              
3             $VERSION = '1.0';
4              
5 1     1   6 use warnings;
  1         3  
  1         43  
6 1     1   6 use strict;
  1         2  
  1         39  
7              
8 1     1   6 use base 'Acme::Scurvy::Whoreson::BilgeRat';
  1         1  
  1         167  
9              
10             sub new {
11 2     2 0 3 my $class = shift;
12 2         15 bless {
13             nouns => [
14             'bilge rat', 'whoreson', 'land-lubber',
15             'cur', 'swab', 'potvaliant'
16             ],
17             adjectives => [
18             'scurvy', 'whoreson', 'lily-livered',
19             'black-spotted', 'grog-shy', 'cowardly',
20             'potvaliant'
21             ],
22             grammars => [qw(
23             N
24             AN
25             AAN
26             )]
27             }, $class;
28             }
29              
30             # sub generateinsult { my $self = shift; return 'this is a subclassed stringification'; }
31             'aaaaarrrrrrrrrr';