File Coverage

blib/lib/CPAN/Changes/Markdown/Role/Filter/Rule/PlainText.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 32 32 100.0


line stmt bran cond sub pod time code
1 10     10   44562 use 5.008; # utf8
  10         34  
  10         378  
2 10     10   53 use strict;
  10         18  
  10         291  
3 10     10   49 use warnings;
  10         20  
  10         244  
4 10     10   971 use utf8;
  10         29  
  10         59  
5              
6             package CPAN::Changes::Markdown::Role::Filter::Rule::PlainText;
7             $CPAN::Changes::Markdown::Role::Filter::Rule::PlainText::VERSION = '1.000000';
8             # ABSTRACT: A rule that only filters 'plaintext' nodes.
9              
10             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11              
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27 10     10   1631 use Role::Tiny qw( requires with );
  10         4692  
  10         70  
28              
29              
30              
31              
32              
33             requires 'filter_plaintext';
34              
35             with 'CPAN::Changes::Markdown::Role::Filter::Rule';
36              
37              
38              
39              
40              
41              
42              
43              
44              
45              
46              
47              
48              
49              
50              
51              
52              
53             sub filter {
54 54     54 1 139 my ( $self, @input ) = @_;
55 54         65 my @output;
56 54         87 for my $input (@input) {
57 64 100       522 if ( not $input->isa('CPAN::Changes::Markdown::Filter::Node::PlainText') ) {
58 5         9 push @output, $input;
59 5         7 next;
60             }
61 59         189 push @output, $self->filter_plaintext($input);
62             }
63 54         300 return @output;
64             }
65              
66             1;
67              
68             __END__