File Coverage

tlib/FooBar.pm
Criterion Covered Total %
statement 15 19 78.9
branch n/a
condition n/a
subroutine 5 9 55.5
pod 0 2 0.0
total 20 30 66.6


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 :