File Coverage

lib/CPAN/Changes/Markdown/Filter/Node/PlainText.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1 6     6   1653 use 5.008; # utf8
  6         20  
  6         245  
2 6     6   31 use strict;
  6         10  
  6         190  
3 6     6   30 use warnings;
  6         51  
  6         216  
4 6     6   1074 use utf8;
  6         18  
  6         64  
5              
6             package CPAN::Changes::Markdown::Filter::Node::PlainText;
7             $CPAN::Changes::Markdown::Filter::Node::PlainText::VERSION = '1.000000';
8             # ABSTRACT: A text node that contains markup-free text.
9              
10             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11              
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 6     6   1503 use Moo qw( with has );
  6         20007  
  6         32  
37              
38             with 'CPAN::Changes::Markdown::Role::Filter::Node';
39              
40              
41              
42              
43              
44              
45              
46             has content => ( is => rw =>, required => 1 );
47              
48              
49              
50              
51              
52              
53              
54              
55              
56             sub create {
57 124     124 1 231 my ( $self, $content ) = @_;
58 124         2685 return $self->new( content => $content );
59             }
60              
61              
62              
63              
64              
65              
66              
67             sub to_s {
68 84     84 1 265 my ( $self, ) = @_;
69 84         757 return $self->content;
70             }
71              
72             1;
73              
74             __END__