File Coverage

blib/lib/PPI/Statement/Data.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package PPI::Statement::Data;
2              
3             =pod
4              
5             =head1 NAME
6              
7             PPI::Statement::Data - The __DATA__ section of a file
8              
9             =head1 SYNOPSIS
10              
11             # Normal content
12            
13             __DATA__
14             This: data
15             is: part
16             of: the
17             PPI::Statement::Data: object
18              
19             =head1 INHERITANCE
20              
21             PPI::Statement::Compound
22             isa PPI::Statement
23             isa PPI::Node
24             isa PPI::Element
25              
26             =head1 DESCRIPTION
27              
28             C is a utility class designed to hold content in
29             the __DATA__ section of a file. It provides a single statement to hold
30             B of the data.
31              
32             =head1 METHODS
33              
34             C has no additional methods beyond the default ones
35             provided by L, L and L.
36              
37             However, it is expected to gain methods for accessing the data directly,
38             (as a filehandle for example) just as you would access the data in the
39             Perl code itself.
40              
41             =cut
42              
43 64     64   415 use strict;
  64         123  
  64         1490  
44 64     64   284 use PPI::Statement ();
  64         113  
  64         3852  
45              
46             our $VERSION = '1.276';
47              
48             our @ISA = "PPI::Statement";
49              
50             # Data is never complete
51             sub _complete () { '' }
52              
53             1;
54              
55             =pod
56              
57             =head1 TO DO
58              
59             - Add the methods to read in the data
60              
61             - Add some proper unit testing
62              
63             =head1 SUPPORT
64              
65             See the L in the main module.
66              
67             =head1 AUTHOR
68              
69             Adam Kennedy Eadamk@cpan.orgE
70              
71             =head1 COPYRIGHT
72              
73             Copyright 2001 - 2011 Adam Kennedy.
74              
75             This program is free software; you can redistribute
76             it and/or modify it under the same terms as Perl itself.
77              
78             The full text of the license can be found in the
79             LICENSE file included with this module.
80              
81             =cut