/usr/share/perl5/Forest/Tree/Builder.pm is in libforest-perl 0.10-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 | package Forest::Tree::Builder;
use Moose::Role;
our $VERSION = '0.10';
our $AUTHORITY = 'cpan:STEVAN';
with qw(Forest::Tree::Constructor);
has 'tree' => (
is => 'ro',
writer => "_tree",
isa => 'Forest::Tree::Pure',
lazy_build => 1,
);
has tree_class => (
isa => "ClassName",
is => "ro",
reader => "_tree_class",
default => "Forest::Tree",
);
# horrible horrible kludge to satisfy 'requires' without forcing 'sub
# tree_class {}' in every single class. God i hate roles and attributes
sub tree_class { shift->_tree_class(@_) }
sub _build_tree {
my $self = shift;
$self->create_new_subtree(
children => $self->subtrees,
);
}
has subtrees => (
isa => "ArrayRef[Forest::Tree::Pure]",
is => "ro",
lazy_build => 1,
);
requires "_build_subtrees";
# ex: set sw=4 et:
no Moose::Role; 1;
__END__
=head1 NAME
Forest::Tree::Builder - An abstract role for bottom up tree reader
=head1 SYNOPSIS
package MyBuilder;
use Moose;
with qw(Forest::Tree::Builder);
# implement required builder:
sub _build_subtrees {
return [
$self->create_new_subtree( ... ), # probably a recursive process
];
}
my $builder = MyBuilder->new(
tree_class => ...,
...
);
my $tree = $builder->tree;
=head1 DESCRIPTION
L<Forest::Tree::Builder> replaces L<Forest::Tree::Loader> and
L<Forest::Tree::Reader> with a bottom up construction approach, which is also
suitable for constructing L<Forest::Tree::Pure> derived trees without excessive
cloning.
It provides a declarative API instead of an imperative one, where C<tree> is
lazily constructed on the first use, instead of being constructed immediately
and "filled in" by the C<load> method.
=head1 METHODS
=over 4
=item create_new_subtree
Implemented by L<Forest::Tree::Constructor>
=item _build_tree
Constructs a root node by using the top level C<subtrees> list as the children.
=item _build_subtrees
Build the subtrees.
Abstract method that should return an array ref of L<Forest::Tree::Pure> derived objects.
=back
=head1 SEE ALSO
L<Forest::Tree::Builder::SimpleTextFile>
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
=head1 AUTHOR
Yuval Kogman
=head1 COPYRIGHT AND LICENSE
Copyright 2008-2014 Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|