/usr/share/perl5/Pod/Weaver/Plugin/H1Nester.pm is in libpod-weaver-perl 4.015-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 | package Pod::Weaver::Plugin::H1Nester;
# ABSTRACT: structure the input pod document into head1-grouped sections
$Pod::Weaver::Plugin::H1Nester::VERSION = '4.015';
use Moose;
with 'Pod::Weaver::Role::Transformer';
use namespace::autoclean;
use Pod::Elemental::Selectors -all;
use Pod::Elemental::Transformer::Nester;
#pod =head1 OVERVIEW
#pod
#pod This plugin is very, very simple: it uses the
#pod L<Pod::Elemental::Transformer::Nester> to restructure the document under its
#pod C<=head1> elements.
#pod
#pod =cut
sub transform_document {
my ($self, $document) = @_;
my $nester = Pod::Elemental::Transformer::Nester->new({
top_selector => s_command([ qw(head1) ]),
content_selectors => [
s_flat,
s_command( [ qw(head2 head3 head4 over item back) ]),
],
});
$nester->transform_node($document);
return;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Pod::Weaver::Plugin::H1Nester - structure the input pod document into head1-grouped sections
=head1 VERSION
version 4.015
=head1 OVERVIEW
This plugin is very, very simple: it uses the
L<Pod::Elemental::Transformer::Nester> to restructure the document under its
C<=head1> elements.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 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
|