File Coverage

blib/lib/Forest/Tree/Writer.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Forest::Tree::Writer;
2 5     5   14106 use Moose::Role;
  5         12  
  5         64  
3              
4             our $VERSION = '0.10';
5             our $AUTHORITY = 'cpan:STEVAN';
6              
7             has 'tree' => (
8             is => 'rw',
9             isa => 'Forest::Tree::Pure',
10             required => 1,
11             );
12              
13             requires 'as_string';
14              
15             sub write {
16 2     2 1 338 my ($self, $fh) = @_;
17 2         18 print $fh $self->as_string;
18             }
19              
20 5     5   34063 no Moose::Role; 1;
  5         16  
  5         34  
21              
22             __END__
23              
24             =pod
25              
26             =head1 NAME
27              
28             Forest::Tree::Writer - An abstract role for tree writers
29              
30             =head1 DESCRIPTION
31              
32             This is an abstract role for tree writers.
33              
34             =head1 ATTRIBUTES
35              
36             =over 4
37              
38             =item I<tree>
39              
40             =back
41              
42             =head1 REQUIRED METHODS
43              
44             =over 4
45              
46             =item B<as_string>
47              
48             =back
49              
50             =head1 METHODS
51              
52             =over 4
53              
54             =item B<write ($fh)>
55              
56             =back
57              
58             =head1 BUGS
59              
60             All complex software has bugs lurking in it, and this module is no
61             exception. If you find a bug please either email me, or add the bug
62             to cpan-RT.
63              
64             =head1 AUTHOR
65              
66             Stevan Little E<lt>stevan.little@iinteractive.comE<gt>
67              
68             =head1 COPYRIGHT AND LICENSE
69              
70             Copyright 2008-2014 Infinity Interactive, Inc.
71              
72             L<http://www.iinteractive.com>
73              
74             This library is free software; you can redistribute it and/or modify
75             it under the same terms as Perl itself.
76              
77             =cut