File Coverage

blib/lib/Parse/RandGen.pm
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod n/a
total 52 52 100.0


line stmt bran cond sub pod time code
1             # $Revision: #4 $$Date: 2005/08/31 $$Author: jd150722 $
2             ######################################################################
3             #
4             # This program is Copyright 2003-2005 by Jeff Dutton.
5             #
6             # This program is free software; you can redistribute it and/or modify
7             # it under the terms of either the GNU General Public License or the
8             # Perl Artistic License.
9             #
10             # This program is distributed in the hope that it will be useful,
11             # but WITHOUT ANY WARRANTY; without even the implied warranty of
12             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13             # GNU General Public License for more details.
14             #
15             # If you do not have a copy of the GNU General Public License write to
16             # the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
17             # MA 02139, USA.
18             ######################################################################
19              
20             package Parse::RandGen;
21              
22             require 5.006_001;
23 4     4   137259 use Carp;
  4         10  
  4         368  
24 4     4   26 use Data::Dumper;
  4         9  
  4         393  
25              
26             BEGIN {
27 4     4   24 require Exporter;
28 4         75 @ISA = ('Exporter');
29 4         93 @EXPORT_OK = qw($Debug);
30             }
31              
32 4     4   21 use strict;
  4         43  
  4         181  
33 4     4   22 use vars qw($VERSION $Debug);
  4         8  
  4         357  
34             $VERSION = '0.202';
35             #$Debug = 1; # Set to turn on debugging
36              
37             # Use all of the components of this package (so each module doesn't have to replicate the code)
38 4     4   13175 use Parse::RandGen::Condition;
  4         9  
  4         161  
39 4     4   2757 use Parse::RandGen::Production;
  4         12  
  4         202  
40 4     4   2319 use Parse::RandGen::Rule;
  4         11  
  4         129  
41 4     4   2036 use Parse::RandGen::Grammar;
  4         12  
  4         178  
42 4     4   2284 use Parse::RandGen::Subrule;
  4         12  
  4         102  
43 4     4   1946 use Parse::RandGen::Literal;
  4         11  
  4         105  
44 4     4   16514 use Parse::RandGen::CharClass;
  4         15  
  4         125  
45 4     4   2456 use Parse::RandGen::Regexp;
  4         16  
  4         327  
46              
47             ######################################################################
48             #### Package return
49             1;
50             __END__