File Coverage

lib/CPAN/Changes/Markdown/Filter.pm
Criterion Covered Total %
statement 22 23 95.6
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 29 31 93.5


line stmt bran cond sub pod time code
1 6     6   76795 use 5.006; # our
  6         17  
  6         201  
2 6     6   22 use strict;
  6         7  
  6         175  
3 6     6   24 use warnings;
  6         7  
  6         563  
4              
5             package CPAN::Changes::Markdown::Filter;
6              
7             # ABSTRACT: a simple plug-in based, staged text filter for Markdown translation
8              
9             our $VERSION = '1.000001';
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23 6     6   3270 use Moo 1.000008 qw( with has );
  6         67654  
  6         34  
24 6     6   9472 use CPAN::Changes::Markdown::Filter::NodeUtil qw(mk_node_plaintext);
  6         10  
  6         32  
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36              
37              
38              
39             with 'CPAN::Changes::Markdown::Role::Filter';
40              
41              
42              
43              
44              
45              
46              
47             has rules => (
48             is => ro =>,
49             lazy => 1,
50             builder => sub {
51 0     0   0 [];
52             },
53             );
54              
55              
56              
57              
58              
59              
60              
61             sub process {
62 44     44 1 4528 my ( $self, $input ) = @_;
63 44         128 my (@input) = ( mk_node_plaintext($input) );
64 44         4608 for my $rule ( @{ $self->rules } ) {
  44         637  
65 54         1965 @input = $rule->filter(@input);
66             }
67 44         65 return join q{}, map { $_->to_s } @input;
  124         224  
68             }
69              
70             1;
71              
72             __END__