Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/PPI/Token/Label.pm |
Statements | Executed 9 statements in 96µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 11µs | 23µs | BEGIN@31 | PPI::Token::Label::
1 | 1 | 1 | 7µs | 7µs | BEGIN@35 | PPI::Token::Label::
1 | 1 | 1 | 6µs | 33µs | BEGIN@34 | PPI::Token::Label::
1 | 1 | 1 | 3µs | 3µs | BEGIN@32 | PPI::Token::Label::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package PPI::Token::Label; | ||||
2 | |||||
3 | =pod | ||||
4 | |||||
5 | =head1 NAME | ||||
6 | |||||
7 | PPI::Token::Label - Token class for a statement label | ||||
8 | |||||
9 | =head1 INHERITANCE | ||||
10 | |||||
11 | PPI::Token::Label | ||||
12 | isa PPI::Token | ||||
13 | isa PPI::Element | ||||
14 | |||||
15 | =head1 DESCRIPTION | ||||
16 | |||||
17 | A label is an identifier attached to a line or statements, to allow for | ||||
18 | various types of flow control. For example, a loop might have a label | ||||
19 | attached so that a C<last> or C<next> flow control statement can be used | ||||
20 | from multiple levels below to reference the loop directly. | ||||
21 | |||||
22 | =head1 METHODS | ||||
23 | |||||
24 | There are no additional methods beyond those provided by the parent | ||||
25 | L<PPI::Token> and L<PPI::Element> classes. | ||||
26 | |||||
27 | Got any ideas for methods? Submit a report to rt.cpan.org! | ||||
28 | |||||
29 | =cut | ||||
30 | |||||
31 | 2 | 21µs | 2 | 34µs | # spent 23µs (11+12) within PPI::Token::Label::BEGIN@31 which was called:
# once (11µs+12µs) by PPI::Token::BEGIN@69 at line 31 # spent 23µs making 1 call to PPI::Token::Label::BEGIN@31
# spent 12µs making 1 call to strict::import |
32 | 2 | 18µs | 1 | 3µs | # spent 3µs within PPI::Token::Label::BEGIN@32 which was called:
# once (3µs+0s) by PPI::Token::BEGIN@69 at line 32 # spent 3µs making 1 call to PPI::Token::Label::BEGIN@32 |
33 | |||||
34 | 2 | 30µs | 2 | 60µs | # spent 33µs (6+27) within PPI::Token::Label::BEGIN@34 which was called:
# once (6µs+27µs) by PPI::Token::BEGIN@69 at line 34 # spent 33µs making 1 call to PPI::Token::Label::BEGIN@34
# spent 27µs making 1 call to vars::import |
35 | # spent 7µs within PPI::Token::Label::BEGIN@35 which was called:
# once (7µs+0s) by PPI::Token::BEGIN@69 at line 38 | ||||
36 | 1 | 300ns | $VERSION = '1.215'; | ||
37 | 1 | 8µs | @ISA = 'PPI::Token'; | ||
38 | 1 | 18µs | 1 | 7µs | } # spent 7µs making 1 call to PPI::Token::Label::BEGIN@35 |
39 | |||||
40 | 1 | 2µs | 1; | ||
41 | |||||
42 | =pod | ||||
43 | |||||
44 | =head1 SUPPORT | ||||
45 | |||||
46 | See the L<support section|PPI/SUPPORT> in the main module. | ||||
47 | |||||
48 | =head1 AUTHOR | ||||
49 | |||||
50 | Adam Kennedy E<lt>adamk@cpan.orgE<gt> | ||||
51 | |||||
52 | =head1 COPYRIGHT | ||||
53 | |||||
54 | Copyright 2001 - 2011 Adam Kennedy. | ||||
55 | |||||
56 | This program is free software; you can redistribute | ||||
57 | it and/or modify it under the same terms as Perl itself. | ||||
58 | |||||
59 | The full text of the license can be found in the | ||||
60 | LICENSE file included with this module. | ||||
61 | |||||
62 | =cut |