Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/PPI/Statement/Data.pm |
Statements | Executed 9 statements in 115µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 12µs | 24µs | BEGIN@43 | PPI::Statement::Data::
1 | 1 | 1 | 11µs | 11µs | BEGIN@47 | PPI::Statement::Data::
1 | 1 | 1 | 6µs | 34µs | BEGIN@46 | PPI::Statement::Data::
1 | 1 | 1 | 3µs | 3µs | BEGIN@44 | PPI::Statement::Data::
Line | State ments |
Time on line |
Calls | Time in subs |
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<PPI::Statement::Data> 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<all> of the data. | ||||
31 | |||||
32 | =head1 METHODS | ||||
33 | |||||
34 | C<PPI::Statement::Data> has no additional methods beyond the default ones | ||||
35 | provided by L<PPI::Statement>, L<PPI::Node> and L<PPI::Element>. | ||||
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 | 2 | 22µs | 2 | 35µs | # spent 24µs (12+12) within PPI::Statement::Data::BEGIN@43 which was called:
# once (12µs+12µs) by PPI::Statement::BEGIN@164 at line 43 # spent 24µs making 1 call to PPI::Statement::Data::BEGIN@43
# spent 12µs making 1 call to strict::import |
44 | 2 | 19µs | 1 | 3µs | # spent 3µs within PPI::Statement::Data::BEGIN@44 which was called:
# once (3µs+0s) by PPI::Statement::BEGIN@164 at line 44 # spent 3µs making 1 call to PPI::Statement::Data::BEGIN@44 |
45 | |||||
46 | 2 | 28µs | 2 | 61µs | # spent 34µs (6+27) within PPI::Statement::Data::BEGIN@46 which was called:
# once (6µs+27µs) by PPI::Statement::BEGIN@164 at line 46 # spent 34µs making 1 call to PPI::Statement::Data::BEGIN@46
# spent 27µs making 1 call to vars::import |
47 | # spent 11µs within PPI::Statement::Data::BEGIN@47 which was called:
# once (11µs+0s) by PPI::Statement::BEGIN@164 at line 50 | ||||
48 | 1 | 300ns | $VERSION = '1.215'; | ||
49 | 1 | 11µs | @ISA = 'PPI::Statement'; | ||
50 | 1 | 34µs | 1 | 11µs | } # spent 11µs making 1 call to PPI::Statement::Data::BEGIN@47 |
51 | |||||
52 | # Data is never complete | ||||
53 | sub _complete () { '' } | ||||
54 | |||||
55 | 1 | 2µs | 1; | ||
56 | |||||
57 | =pod | ||||
58 | |||||
59 | =head1 TO DO | ||||
60 | |||||
61 | - Add the methods to read in the data | ||||
62 | |||||
63 | - Add some proper unit testing | ||||
64 | |||||
65 | =head1 SUPPORT | ||||
66 | |||||
67 | See the L<support section|PPI/SUPPORT> in the main module. | ||||
68 | |||||
69 | =head1 AUTHOR | ||||
70 | |||||
71 | Adam Kennedy E<lt>adamk@cpan.orgE<gt> | ||||
72 | |||||
73 | =head1 COPYRIGHT | ||||
74 | |||||
75 | Copyright 2001 - 2011 Adam Kennedy. | ||||
76 | |||||
77 | This program is free software; you can redistribute | ||||
78 | it and/or modify it under the same terms as Perl itself. | ||||
79 | |||||
80 | The full text of the license can be found in the | ||||
81 | LICENSE file included with this module. | ||||
82 | |||||
83 | =cut |