/usr/share/perl5/Pod/Elemental/Paragraph.pm is in libpod-elemental-perl 0.103000-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 138 | package Pod::Elemental::Paragraph;
# ABSTRACT: a paragraph in a Pod document
$Pod::Elemental::Paragraph::VERSION = '0.103000';
use namespace::autoclean;
use Moose::Role;
use Moose::Autobox;
use Encode qw(encode);
use String::Truncate qw(elide);
# =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.
#
# =attr 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"
#
# =attr start_line
#
# This attribute, which may or may not be set, indicates the line in the source
# document where the element began.
#
# =cut
has content => (is => 'rw', isa => 'Str', required => 1);
has start_line => (is => 'ro', isa => 'Int', required => 0);
# =method 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.
#
# =cut
sub as_pod_string {
my ($self) = @_;
return $self->content;
}
# =method 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.
#
# =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.103000
=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
|