File Coverage

blib/lib/Data/BISON/Constants.pm
Criterion Covered Total %
statement 33 33 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 44 44 100.0


line stmt bran cond sub pod time code
1             package Data::BISON::Constants;
2              
3 4     4   54 use warnings;
  4         7  
  4         103  
4 4     4   19 use strict;
  4         6  
  4         105  
5 4     4   19 use Carp;
  4         7  
  4         655  
6 4     4   23 use base qw(Exporter);
  4         17  
  4         750  
7              
8             our @EXPORT = qw(
9             FMB PWL UTF8 NULL UNDEF TRUE FALSE INT8 INT16 INT24 INT32 INT40 INT48
10             INT56 INT64 FLOAT DOUBLE STRING ARRAY HASH STREAM OBJECT VERSION
11             MIN_VER CUR_VER
12             );
13              
14 4     4   3570 use version; our $VERSION = qv( '0.0.3' );
  4         12198  
  4         29  
15              
16 4     4   345 use constant FMB => 'FMB';
  4         7  
  4         348  
17 4     4   22 use constant PWL => 'pwl';
  4         22  
  4         209  
18 4     4   18 use constant UTF8 => 'UTF-8';
  4         7  
  4         285  
19             use constant {
20 4         991 NULL => 0x01,
21             UNDEF => 0x02,
22             TRUE => 0x03,
23             FALSE => 0x04,
24             INT8 => 0x05,
25             INT16 => 0x06,
26             INT24 => 0x07,
27             INT32 => 0x08,
28             INT40 => 0x09,
29             INT48 => 0x0A,
30             INT56 => 0x0B,
31             INT64 => 0x0C,
32             FLOAT => 0x0D,
33             DOUBLE => 0x0E,
34             STRING => 0x0F,
35             ARRAY => 0x10,
36             HASH => 0x11,
37             STREAM => 0x12,
38             OBJECT => 0x13,
39             BACKREF => 0x14,
40             VERSION => 0xFF,
41 4     4   19 };
  4         7  
42              
43 4     4   23 use constant MIN_VER => 1;
  4         6  
  4         184  
44 4     4   20 use constant CUR_VER => 1;
  4         8  
  4         203  
45              
46             1;
47             __END__