File Coverage

blib/lib/Pod/Elemental/Flat.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             package Pod::Elemental::Flat 0.103006;
2             # ABSTRACT: a content-only pod paragraph
3              
4 15     15   12054 use Moose::Role;
  15         53993  
  15         71  
5              
6 15     15   69563 use namespace::autoclean;
  15         38  
  15         119  
7              
8             #pod =head1 OVERVIEW
9             #pod
10             #pod Pod::Elemental::Flat is a role that is included to indicate that a class
11             #pod represents a Pod paragraph that will have no children, and represents only its
12             #pod own content. Generally it is used for text paragraphs.
13             #pod
14             #pod =cut
15              
16             with 'Pod::Elemental::Paragraph';
17             excludes 'Pod::Elemental::Node';
18              
19             sub as_debug_string {
20 0     0 0   my ($self) = @_;
21              
22 0           my $moniker = ref $self;
23 0           $moniker =~ s/\APod::Elemental::Element:://;
24              
25 0           my $summary = $self->_summarize_string($self->content);
26              
27 0           return "$moniker <$summary>";
28             }
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             Pod::Elemental::Flat - a content-only pod paragraph
41              
42             =head1 VERSION
43              
44             version 0.103006
45              
46             =head1 OVERVIEW
47              
48             Pod::Elemental::Flat is a role that is included to indicate that a class
49             represents a Pod paragraph that will have no children, and represents only its
50             own content. Generally it is used for text paragraphs.
51              
52             =head1 PERL VERSION
53              
54             This library should run on perls released even a long time ago. It should work
55             on any version of perl released in the last five years.
56              
57             Although it may work on older versions of perl, no guarantee is made that the
58             minimum required version will not be increased. The version may be increased
59             for any reason, and there is no promise that patches will be accepted to lower
60             the minimum required perl.
61              
62             =head1 AUTHOR
63              
64             Ricardo SIGNES <cpan@semiotic.systems>
65              
66             =head1 COPYRIGHT AND LICENSE
67              
68             This software is copyright (c) 2022 by Ricardo SIGNES.
69              
70             This is free software; you can redistribute it and/or modify it under
71             the same terms as the Perl 5 programming language system itself.
72              
73             =cut