File Coverage

lib/CPAN/Changes/Markdown/Filter/Node/DelimitedText.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	sub	pod	time	code
1	6	6		1315	use 5.008; # utf8
	6			20
	6			242
2	6	6		33	use strict;
	6			11
	6			196
3	6	6		42	use warnings;
	6			12
	6			256
4	6	6		882	use utf8;
	6			17
	6			34
5
6					package CPAN::Changes::Markdown::Filter::Node::DelimitedText;
7					$CPAN::Changes::Markdown::Filter::Node::DelimitedText::VERSION = '1.000000';
8					# ABSTRACT: A region of text that is marked up
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
37	6	6		1356	use Moo qw( with has );
	6			27896
	6			39
38					with 'CPAN::Changes::Markdown::Role::Filter::Node';
39
40
41
42
43
44
45
46					has content => ( is => ro =>, required => 1, );
47
48
49
50
51
52
53
54					has before_text => ( is => ro =>, required => 1, );
55
56
57
58
59
60
61
62					has after_text => ( is => ro =>, required => 1, );
63
64
65
66
67
68
69
70
71
72
73
74
75
76					sub create {
77	40	40	1	71	my ( $self, $before, $content, $after ) = @_;
78	40			703	return $self->new(
79					content => $content,
80					before_text => $before,
81					after_text => $after,
82					);
83					}
84
85
86
87
88
89					sub to_s {
90	40	40	1	218	my ($self) = @_;
91	40			188	return $self->before_text . $self->content . $self->after_text;
92					}
93
94					1;
95
96					__END__