File Coverage

blib/lib/Acme/XKCD/DebianRandom.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Acme::XKCD::DebianRandom;
2              
3 5     5   166312 use 5.010000;
  5         18  
  5         204  
4 5     5   27 use strict;
  5         10  
  5         231  
5 5     5   26 use warnings;
  5         18  
  5         938  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             # Items to export into callers namespace by default. Note: do not export
12             # names by default without a very good reason. Use EXPORT_OK instead.
13             # Do not simply export all your public functions/methods/constants.
14              
15             # This allows declaration use Acme::XKCD::DebianRandom ':all';
16             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
17             # will save memory.
18             our %EXPORT_TAGS = ( 'all' => [ qw(
19            
20             ) ] );
21              
22             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
23              
24             our @EXPORT = qw(
25             getRandomNumber
26             );
27              
28             our $VERSION = '2.00';
29              
30             # Choosen by fair dice roll!!!!!1!
31             our $randomNumber = 4;
32             sub getRandomNumber {
33 2002     2002 0 1018505 return $randomNumber;
34             }
35              
36              
37             1;
38             __END__