File Coverage

blib/lib/BERT/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             package BERT::Constants;
2 6     6   34 use strict;
  6         50  
  6         183  
3 6     6   28 use warnings;
  6         10  
  6         138  
4              
5 6     6   92 use 5.008;
  6         18  
  6         250  
6              
7 6     6   29 use base 'Exporter';
  6         11  
  6         680  
8              
9             # BERT encoding only supports data type identifiers 97-100 and 104-111
10             use constant {
11 6         1523 SMALL_INTEGER_EXT => 97,
12             INTEGER_EXT => 98,
13             FLOAT_EXT => 99,
14             ATOM_EXT => 100,
15             SMALL_TUPLE_EXT => 104,
16             LARGE_TUPLE_EXT => 105,
17             NIL_EXT => 106,
18             STRING_EXT => 107,
19             LIST_EXT => 108,
20             BINARY_EXT => 109,
21             SMALL_BIG_EXT => 110,
22             LARGE_BIG_EXT => 111,
23              
24             MAGIC_NUMBER => 131,
25            
26             ERL_MAX => (1 << 27) - 1,
27             ERL_MIN => -(1 << 27),
28 6     6   39 };
  6         23  
29              
30             our @EXPORT = qw(
31             SMALL_INTEGER_EXT
32             INTEGER_EXT
33             FLOAT_EXT
34             ATOM_EXT
35             SMALL_TUPLE_EXT
36             LARGE_TUPLE_EXT
37             NIL_EXT
38             STRING_EXT
39             LIST_EXT
40             BINARY_EXT
41             SMALL_BIG_EXT
42             LARGE_BIG_EXT
43              
44             MAGIC_NUMBER
45              
46             ERL_MAX
47             ERL_MIN
48             );
49              
50             1;
51              
52             __END__