File Coverage

blib/lib/Math/PRSG.pm
Criterion Covered Total %
statement 2 3 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod 3 3 100.0
total 7 9 77.7


line stmt bran cond sub pod time code
1             #! /usr/local/bin/perl -w -I/usr/local/lib/perl5
2              
3             #
4             # Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
5             # All rights reserved.
6             #
7              
8             package Math::PRSG;
9              
10             require Exporter;
11             require DynaLoader;
12              
13             @ISA = qw(Exporter DynaLoader);
14              
15             # Items to export into callers namespace by default
16             @EXPORT = qw();
17              
18             # Other items we are prepared to export if requested
19             @EXPORT_OK = qw();
20              
21             bootstrap Math::PRSG;
22              
23              
24              
25             package PRSG;
26              
27 1     1 1 20 sub new { Math::PRSG::new(@_); }
28 0     0 1 0 sub seed { Math::PRSG::seed(@_); }
29 100105     100105 1 611559 sub clock { Math::PRSG::clock(@_); }
30              
31             1;