File Coverage

blib/lib/BW/Constants.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             # BW::Constants.pm
2             # Commonly used constants for BW::* modules
3             #
4             # by Bill Weinman - http://bw.org/
5             # Copyright (c) 1995-2010 The BearHeart Group, LLC
6             #
7             # See POD for History
8              
9             package BW::Constants;
10              
11 1     1   6 use strict;
  1         2  
  1         33  
12 1     1   6 use warnings;
  1         2  
  1         24  
13 1     1   16 use 5.008;
  1         3  
  1         45  
14 1     1   6 use Exporter 'import';
  1         2  
  1         105  
15              
16             use constant {
17 1         217 TRUE => 1,
18             SUCCESS => 1,
19             FALSE => '',
20             FAILURE => '',
21             EMPTY => '',
22             CR => "\x0d",
23             LF => "\x0a",
24             CRLF => "\x0d\x0a",
25             VOID => undef
26 1     1   6 };
  1         1  
27              
28             our @EXPORT = qw ( TRUE SUCCESS FALSE FAILURE EMPTY CR LF CRLF VOID );
29             our $VERSION = "1.2";
30              
31             1;
32              
33             __END__