File Coverage

blib/lib/Pod/Elemental/Autoblank.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Pod::Elemental::Autoblank 0.103006;
2             # ABSTRACT: a paragraph that always displays an extra blank line in Pod form
3              
4 13     13   7354 use namespace::autoclean;
  13         31  
  13         108  
5 13     13   905 use Moose::Role;
  13         29  
  13         91  
6              
7             #pod =head1 OVERVIEW
8             #pod
9             #pod This role exists primarily to simplify elements produced by the Pod5
10             #pod transformer. Any element with this role composed into it will append an extra
11             #pod newline to the normally generated response to the C<as_pod_string> method.
12             #pod
13             #pod That's it!
14             #pod
15             #pod =cut
16              
17             around as_pod_string => sub {
18             my ($orig, $self, @arg) = @_;
19             my $str = $self->$orig(@arg);
20             "$str\n\n";
21             };
22              
23             1;
24              
25             __END__
26              
27             =pod
28              
29             =encoding UTF-8
30              
31             =head1 NAME
32              
33             Pod::Elemental::Autoblank - a paragraph that always displays an extra blank line in Pod form
34              
35             =head1 VERSION
36              
37             version 0.103006
38              
39             =head1 OVERVIEW
40              
41             This role exists primarily to simplify elements produced by the Pod5
42             transformer. Any element with this role composed into it will append an extra
43             newline to the normally generated response to the C<as_pod_string> method.
44              
45             That's it!
46              
47             =head1 PERL VERSION
48              
49             This library should run on perls released even a long time ago. It should work
50             on any version of perl released in the last five years.
51              
52             Although it may work on older versions of perl, no guarantee is made that the
53             minimum required version will not be increased. The version may be increased
54             for any reason, and there is no promise that patches will be accepted to lower
55             the minimum required perl.
56              
57             =head1 AUTHOR
58              
59             Ricardo SIGNES <cpan@semiotic.systems>
60              
61             =head1 COPYRIGHT AND LICENSE
62              
63             This software is copyright (c) 2022 by Ricardo SIGNES.
64              
65             This is free software; you can redistribute it and/or modify it under
66             the same terms as the Perl 5 programming language system itself.
67              
68             =cut