File: SimpleTextFile.pm

package info (click to toggle)
libforest-perl 0.09-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 316 kB
  • sloc: perl: 3,070; makefile: 2
file content (119 lines) | stat: -rw-r--r-- 2,605 bytes parent folder | download
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
package Forest::Tree::Reader::SimpleTextFile;
use Moose;

our $VERSION   = '0.09';
our $AUTHORITY = 'cpan:STEVAN';

use Forest::Tree::Builder::SimpleTextFile;

with qw(Forest::Tree::Reader Forest::Tree::Constructor); # see new_subtree_callback below

# FIXME these are for compat... remove them?

has 'tab_width' => (
    is      => 'rw',
    isa     => 'Int',
    default => 4
);

has 'parser' => (
    is      => 'rw',
    isa     => 'CodeRef',
    lazy    => 1,
    builder => 'build_parser',
);

sub build_parser {
    return sub {
        my ($self, $line) = @_;
        my ($indent, $node) = ($line =~ /^(\s*)(.*)$/);
        my $depth = ((length $indent) / $self->tab_width);
        return ($depth, $node);
    }
}

sub parse_line { $_[0]->parser->(@_) }

# compat endscreate_new_subtree(@_);},

sub read {
    my ($self, $fh) = @_;

    my $builder = Forest::Tree::Builder::SimpleTextFile->new(
        tree_class           => ref( $self->tree ),
        tab_width            => $self->tab_width,
        parser               => $self->parser,
        fh                   => $fh,

        # since it's possible to subclass reader and implement this method, we
        # include Forest::Tree::Constructor into this class as well, and make
        # the builder use that definition (which under normal circumstances
        # will be the same, Forest::Tree::Constructor::create_new_subtree)
        new_subtree_callback => sub {
            my ( $builder, @args ) = @_;
            $self->create_new_subtree(@args);
        },
    );

    $self->tree->add_child($_) for @{ $builder->subtrees };
}

__PACKAGE__->meta->make_immutable;

no Moose; 1;

__END__

=pod

=head1 NAME

Forest::Tree::Reader::SimpleTextFile - A reader for Forest::Tree heirarchies

=head1 DESCRIPTION

B<This module is deprecated>. You should use L<Forest::Tree::Builder::SimpleTextFile> instead.

This reads simple F<.tree> files, which are basically the tree represented
as a tabbed heirarchy.

=head1 ATTRIBUTES

=over 4

=item I<tab_width>

=back

=head1 METHODS

=over 4

=item B<read ($fh)>

=item B<build_parser>

=item B<create_new_subtree (%options)>

=back

=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

Stevan Little E<lt>stevan.little@iinteractive.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2008-2010 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