File Coverage

blib/lib/Babble/Plugin/Ellipsis.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package Babble::Plugin::Ellipsis;
2              
3 1     1   70004 use Moo;
  1         7526  
  1         5  
4              
5             sub transform_to_plain {
6 2     2 0 2877 my ($self, $top) = @_;
7             $top->each_match_within(Statement => [
8             '\.\.\.'
9             ] => sub {
10 2     2   8 my ($m) = @_;
11 2         10 $m->replace_text(q|die 'Unimplemented'|);
12 2         17 });
13             }
14              
15             1;
16             __END__
17              
18             =head1 NAME
19              
20             Babble::Plugin::Ellipsis - Plugin for ellipsis / yada yada yada statement
21              
22             =head1 SYNOPSIS
23              
24             Converts usage of the ellipsis syntax from
25              
26             ...
27              
28             to
29              
30             die 'Unimplemented'
31              
32             =head1 SEE ALSO
33              
34             L<... syntax|Syntax::Construct/...>
35              
36             =cut