File Coverage

blib/lib/CPAN/Changes/Markdown/Filter/Node/DelimitedText.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1 6     6   639 use 5.006; # our
  6         16  
2 6     6   24 use strict;
  6         6  
  6         143  
3 6     6   36 use warnings;
  6         5  
  6         400  
4              
5             package CPAN::Changes::Markdown::Filter::Node::DelimitedText;
6              
7             # ABSTRACT: A region of text that is marked up
8              
9             our $VERSION = '1.000002';
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36              
37              
38 6     6   452 use Moo qw( with has );
  6         9934  
  6         32  
39             with 'CPAN::Changes::Markdown::Role::Filter::Node';
40              
41              
42              
43              
44              
45              
46              
47             has content => ( is => ro =>, required => 1, );
48              
49              
50              
51              
52              
53              
54              
55             has before_text => ( is => ro =>, required => 1, );
56              
57              
58              
59              
60              
61              
62              
63             has after_text => ( is => ro =>, required => 1, );
64              
65              
66              
67              
68              
69              
70              
71              
72              
73              
74              
75              
76              
77             sub create {
78 40     40 1 57 my ( $self, $before, $content, $after ) = @_;
79 40         585 return $self->new(
80             content => $content,
81             before_text => $before,
82             after_text => $after,
83             );
84             }
85              
86              
87              
88              
89              
90             sub to_s {
91 40     40 1 39 my ($self) = @_;
92 40         147 return $self->before_text . $self->content . $self->after_text;
93             }
94              
95             1;
96              
97             __END__