/usr/share/perl5/Pod/Elemental/Node.pm is in libpod-elemental-perl 0.103001-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 | package Pod::Elemental::Node;
# ABSTRACT: a thing with Pod::Elemental::Nodes as children
$Pod::Elemental::Node::VERSION = '0.103001';
use Moose::Role;
use namespace::autoclean;
use Moose::Autobox;
use MooseX::Types;
use MooseX::Types::Moose qw(ArrayRef);
use Moose::Util::TypeConstraints qw(class_type);
requires 'as_pod_string';
requires 'as_debug_string';
#pod =head1 OVERVIEW
#pod
#pod Classes that include Pod::Elemental::Node represent collections of child
#pod Pod::Elemental::Paragraphs. This includes Pod documents, Pod5 regions, and
#pod nested Pod elements produced by the Gatherer transformer.
#pod
#pod =attr children
#pod
#pod This attribute is an arrayref of
#pod L<Pod::Elemental::Node|Pod::Elemental::Node>-performing objects, and represents
#pod elements contained by an object.
#pod
#pod =cut
has children => (
is => 'rw',
isa => ArrayRef[ role_type('Pod::Elemental::Paragraph') ],
required => 1,
default => sub { [] },
);
around as_debug_string => sub {
my ($orig, $self) = @_;
my $str = $self->$orig;
my @children = map { $_->as_debug_string } $self->children->flatten;
s/^/ /sgm for @children;
$str = join "\n", $str, @children;
return $str;
};
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Pod::Elemental::Node - a thing with Pod::Elemental::Nodes as children
=head1 VERSION
version 0.103001
=head1 OVERVIEW
Classes that include Pod::Elemental::Node represent collections of child
Pod::Elemental::Paragraphs. This includes Pod documents, Pod5 regions, and
nested Pod elements produced by the Gatherer transformer.
=head1 ATTRIBUTES
=head2 children
This attribute is an arrayref of
L<Pod::Elemental::Node|Pod::Elemental::Node>-performing objects, and represents
elements contained by an object.
=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
|