File Coverage

lib/CPAN/Changes/Markdown/Filter/Rule/NumericsToCode.pm
Criterion Covered Total %
statement 30 30 100.0
branch 4 4 100.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 42 42 100.0


line stmt bran cond sub pod time code
1 2     2   789 use 5.006; # our
  2         6  
  2         71  
2 2     2   9 use strict;
  2         3  
  2         65  
3 2     2   6 use warnings;
  2         3  
  2         142  
4              
5             package CPAN::Changes::Markdown::Filter::Rule::NumericsToCode;
6              
7             # ABSTRACT: Quote things that look like numbers as code entries.
8              
9             our $VERSION = '1.000001';
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   542 use Moo qw( with has );
  2         10935  
  2         15  
14 2     2   1942 use CPAN::Changes::Markdown::Filter::NodeUtil qw( mk_node_plaintext mk_node_delimitedtext );
  2         4  
  2         14  
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36              
37             with 'CPAN::Changes::Markdown::Role::Filter::Rule::PlainText';
38              
39             sub _inject_code_delim {
40 2     2   41 my ( $self, $out, $before, $code, $after ) = @_;
41 2         3 push @{$out}, mk_node_plaintext($before);
  2         6  
42 2         34 push @{$out}, mk_node_delimitedtext( q{`}, $code, q{`} );
  2         9  
43 2         963 push @{$out}, $self->filter_plaintext( mk_node_plaintext($after) );
  2         9  
44 2         2 return @{$out};
  2         10  
45             }
46              
47             # _Pulp__5010_qr_m_propagate_properly
48             ## no critic (Compatibility::PerlMinimumVersionAndWhy)
49             my $re_contains_number = qr/ \d /msx;
50             my $re_numeric = qr/ (\A|\A.*?\s) ( [\d._]+ ) (\z|\s.*\z)/msx;
51             ## use critic
52              
53              
54              
55              
56              
57             sub filter_plaintext {
58 8     8 1 45 my ( $self, $input ) = @_;
59 8 100       50 if ( $input->content !~ $re_contains_number ) {
60 3         9 return $input;
61             }
62 5 100       37 if ( $input->content =~ $re_numeric ) {
63 2         7 return $self->_inject_code_delim( [], $1, $2, $3 );
64             }
65 3         9 return $input;
66             }
67              
68             1;
69              
70             __END__