line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
############################################################################## |
2
|
|
|
|
|
|
|
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic-Dynamic/lib/Perl/Critic/Policy/Dynamic/ValidateAgainstSymbolTable.pm $ |
3
|
|
|
|
|
|
|
# $Date: 2007-06-15 20:35:56 -0700 (Fri, 15 Jun 2007) $ |
4
|
|
|
|
|
|
|
# $Author: thaljef $ |
5
|
|
|
|
|
|
|
# $Revision: 1645 $ |
6
|
|
|
|
|
|
|
############################################################################## |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package FooBar; |
9
|
|
|
|
|
|
|
|
10
|
4
|
|
|
4
|
|
37
|
use strict; |
|
4
|
|
|
|
|
43
|
|
|
4
|
|
|
|
|
313
|
|
11
|
4
|
|
|
4
|
|
50
|
use warnings; |
|
4
|
|
|
|
|
18
|
|
|
4
|
|
|
|
|
262
|
|
12
|
|
|
|
|
|
|
|
13
|
4
|
|
|
4
|
|
55
|
use Carp (); # No imports! |
|
4
|
|
|
|
|
52
|
|
|
4
|
|
|
|
|
392
|
|
14
|
4
|
|
|
4
|
|
60
|
use base 'Exporter'; |
|
4
|
|
|
|
|
9
|
|
|
4
|
|
|
|
|
2043
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
#---------------------------------------------------------------------------- |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
our @EXPORT = qw(always_exported); |
19
|
|
|
|
|
|
|
our @EXPORT_OK = (@EXPORT, qw(exported_on_demand)); |
20
|
|
|
|
|
|
|
|
21
|
0
|
|
|
0
|
0
|
|
sub always_exported {} |
22
|
0
|
|
|
0
|
0
|
|
sub exported_on_demand {} |
23
|
0
|
|
|
0
|
|
|
sub main::declared_into_main {} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
############################################################################# |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
package InnerFooBar; |
28
|
|
|
|
|
|
|
|
29
|
4
|
|
|
4
|
|
25
|
use Carp qw(cluck confess); # With imports! |
|
4
|
|
|
|
|
16
|
|
|
4
|
|
|
|
|
1525
|
|
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
#---------------------------------------------------------------------------- |
32
|
|
|
|
|
|
|
|
33
|
0
|
|
|
0
|
|
|
sub inner_subroutine{} |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
1; |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
############################################################################## |
39
|
|
|
|
|
|
|
# Local Variables: |
40
|
|
|
|
|
|
|
# mode: cperl |
41
|
|
|
|
|
|
|
# cperl-indent-level: 4 |
42
|
|
|
|
|
|
|
# fill-column: 78 |
43
|
|
|
|
|
|
|
# indent-tabs-mode: nil |
44
|
|
|
|
|
|
|
# c-indentation-style: bsd |
45
|
|
|
|
|
|
|
# End: |
46
|
|
|
|
|
|
|
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab : |