/usr/share/perl5/Pod/Elemental/Paragraph.pm is in libpod-elemental-perl 0.103004-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | package Pod::Elemental::Paragraph;
# ABSTRACT: a paragraph in a Pod document
$Pod::Elemental::Paragraph::VERSION = '0.103004';
use namespace::autoclean;
use Moose::Role;
use Encode qw(encode);
use String::Truncate qw(elide);
#pod =head1 OVERVIEW
#pod
#pod This is probably the most important role in the Pod-Elemental distribution.
#pod Classes including this role represent paragraphs in a Pod document. The
#pod paragraph is the fundamental unit of dividing up Pod documents, so this is a
#pod often-included role.
#pod
#pod =attr content
#pod
#pod This is the textual content of the element, as in a Pod::Eventual event. In
#pod other words, this Pod:
#pod
#pod =head2 content
#pod
#pod has a content of "content\n"
#pod
#pod =attr start_line
#pod
#pod This attribute, which may or may not be set, indicates the line in the source
#pod document where the element began.
#pod
#pod =cut
has content => (is => 'rw', isa => 'Str', required => 1);
has start_line => (is => 'ro', isa => 'Int', required => 0);
#pod =method as_pod_string
#pod
#pod This returns the element as a string, suitable for turning elements back into
#pod a document. Some elements, like a C<=over> command, will stringify to include
#pod extra content like a C<=back> command. In the case of elements with children,
#pod this method will include the stringified children as well.
#pod
#pod =cut
sub as_pod_string {
my ($self) = @_;
return $self->content;
}
#pod =method as_debug_string
#pod
#pod This method returns a string, like C<as_string>, but is meant for getting an
#pod overview of the document structure, and is not suitable for reproducing a
#pod document. Its exact output is likely to change over time.
#pod
#pod =cut
sub _summarize_string {
my ($self, $str, $length) = @_;
$length ||= 30;
use utf8;
chomp $str;
my $elided = elide($str, $length, { truncate => 'middle', marker => '…' });
$elided =~ tr/\n\t/␉/;
return encode('utf-8', $elided);
}
requires 'as_debug_string';
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Pod::Elemental::Paragraph - a paragraph in a Pod document
=head1 VERSION
version 0.103004
=head1 OVERVIEW
This is probably the most important role in the Pod-Elemental distribution.
Classes including this role represent paragraphs in a Pod document. The
paragraph is the fundamental unit of dividing up Pod documents, so this is a
often-included role.
=head1 ATTRIBUTES
=head2 content
This is the textual content of the element, as in a Pod::Eventual event. In
other words, this Pod:
=head2 content
has a content of "content\n"
=head2 start_line
This attribute, which may or may not be set, indicates the line in the source
document where the element began.
=head1 METHODS
=head2 as_pod_string
This returns the element as a string, suitable for turning elements back into
a document. Some elements, like a C<=over> command, will stringify to include
extra content like a C<=back> command. In the case of elements with children,
this method will include the stringified children as well.
=head2 as_debug_string
This method returns a string, like C<as_string>, but is meant for getting an
overview of the document structure, and is not suitable for reproducing a
document. Its exact output is likely to change over time.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|