/usr/share/perl5/Pod/Elemental/Objectifier.pm is in libpod-elemental-perl 0.102361-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 | package Pod::Elemental::Objectifier;
{
$Pod::Elemental::Objectifier::VERSION = '0.102361';
}
use Moose;
use Moose::Autobox;
# ABSTRACT: it turns a Pod::Eventual event stream into objects
use namespace::autoclean;
use Pod::Elemental::Element::Generic::Blank;
use Pod::Elemental::Element::Generic::Command;
use Pod::Elemental::Element::Generic::Nonpod;
use Pod::Elemental::Element::Generic::Text;
sub objectify_events {
my ($self, $events) = @_;
return $events->map(sub {
Carp::croak("not a valid event") unless ref $_;
my $class = $self->element_class_for_event($_);
my %guts = (
content => $_->{content},
start_line => $_->{start_line},
($_->{type} eq 'command' ? (command => $_->{command}) : ()),
);
$class->new(\%guts);
});
}
sub __class_for {
return {
blank => 'Pod::Elemental::Element::Generic::Blank',
command => 'Pod::Elemental::Element::Generic::Command',
nonpod => 'Pod::Elemental::Element::Generic::Nonpod',
text => 'Pod::Elemental::Element::Generic::Text',
};
}
sub element_class_for_event {
my ($self, $event) = @_;
my $t = $event->{type};
my $class_for = $self->__class_for;
Carp::croak "unknown event type: $t" unless exists $class_for->{ $t };
return $class_for->{ $t };
}
1;
__END__
=pod
=head1 NAME
Pod::Elemental::Objectifier - it turns a Pod::Eventual event stream into objects
=head1 VERSION
version 0.102361
=head1 OVERVIEW
An objectifier is responsible for taking the events produced by
L<Pod::Eventual|Pod::Eventual> and converting them into objects that perform
the Pod::Elemental::Paragraph role.
In general, it does this by producing a sequence of element objects in the
Pod::Elemental::Element::Generic namespace.
=head1 METHODS
=head2 objectify_events
my $elements = $objectifier->objectify_events(\@events);
Given an arrayref of Pod events, this method returns an arrayref of objects
formed from the event stream.
=head2 element_class_for_event
This method returns the name of the class to be used for the given event.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 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
|