File Coverage

blib/lib/Tangence/Types.pm
Criterion Covered Total %
statement 38 38 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod n/a
total 51 51 100.0


line stmt bran cond sub pod time code
1             # You may distribute under the terms of either the GNU General Public License
2             # or the Artistic License (the same terms as Perl itself)
3             #
4             # (C) Paul Evans, 2014 -- leonerd@leonerd.org.uk
5              
6             package Tangence::Types 0.29;
7              
8 14     14   936 use v5.26;
  14         47  
9 14     14   63 use warnings;
  14         22  
  14         415  
10              
11 14     14   64 use Exporter 'import';
  14         23  
  14         703  
12             our @EXPORT = qw(
13             TYPE_BOOL
14             TYPE_U8
15             TYPE_INT
16             TYPE_STR
17             TYPE_OBJ
18             TYPE_ANY
19              
20             TYPE_LIST_STR
21             TYPE_LIST_ANY
22              
23             TYPE_DICT_ANY
24             );
25              
26 14     14   3917 use Tangence::Type;
  14         33  
  14         562  
27              
28 14     14   86 use constant TYPE_BOOL => Tangence::Type->make( "bool" );
  14         27  
  14         67  
29 14     14   74 use constant TYPE_U8 => Tangence::Type->make( "u8" );
  14         32  
  14         42  
30 14     14   75 use constant TYPE_INT => Tangence::Type->make( "int" );
  14         23  
  14         38  
31 14     14   74 use constant TYPE_STR => Tangence::Type->make( "str" );
  14         21  
  14         55  
32 14     14   71 use constant TYPE_OBJ => Tangence::Type->make( "obj" );
  14         23  
  14         40  
33 14     14   70 use constant TYPE_ANY => Tangence::Type->make( "any" );
  14         21  
  14         49  
34              
35 14     14   79 use constant TYPE_LIST_STR => Tangence::Type->make( list => TYPE_STR );
  14         23  
  14         41  
36 14     14   70 use constant TYPE_LIST_ANY => Tangence::Type->make( list => TYPE_ANY );
  14         23  
  14         42  
37              
38 14     14   74 use constant TYPE_DICT_ANY => Tangence::Type->make( dict => TYPE_ANY );
  14         22  
  14         59  
39              
40             0x55AA;