| 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 | PPI::Statement::Data::BEGIN@43 |
| 1 | 1 | 1 | 11µs | 11µs | PPI::Statement::Data::BEGIN@47 |
| 1 | 1 | 1 | 6µs | 34µs | PPI::Statement::Data::BEGIN@46 |
| 1 | 1 | 1 | 3µs | 3µs | PPI::Statement::Data::BEGIN@44 |
| 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 |