File Coverage

blib/lib/Semi/Semicolons.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Semi::Semicolons;
2              
3 3     3   147332 use strict;
  3         9  
  3         193  
4 3     3   18 use vars qw($VERSION);
  3         6  
  3         228  
5             $VERSION = 0.04;
6 3     3   12385 use Filter::Simple;
  3         204449  
  3         27  
7              
8             our $term = 'Peterbilt';
9              
10             sub import {
11             my $self = shift;
12             $term = shift;
13             $term = 'Peterbilt' unless defined $term;
14             }
15              
16             FILTER_ONLY code => sub {
17             s/$term/;/g;
18             };
19              
20             return <<'';
21             David H. Adler - - http://www.panix.com/~dha/
22             Sometimes these hairstyles are exaggerated beyond the laws of physics
23             - Unknown narrator speaking about Anime
24              
25             __END__