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.30;
7              
8 14     14   671 use v5.26;
  14         56  
9 14     14   75 use warnings;
  14         24  
  14         393  
10              
11 14     14   68 use Exporter 'import';
  14         27  
  14         812  
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   4903 use Tangence::Type;
  14         41  
  14         673  
27              
28 14     14   102 use constant TYPE_BOOL => Tangence::Type->make( "bool" );
  14         37  
  14         73  
29 14     14   99 use constant TYPE_U8 => Tangence::Type->make( "u8" );
  14         30  
  14         52  
30 14     14   102 use constant TYPE_INT => Tangence::Type->make( "int" );
  14         30  
  14         48  
31 14     14   90 use constant TYPE_STR => Tangence::Type->make( "str" );
  14         39  
  14         67  
32 14     14   85 use constant TYPE_OBJ => Tangence::Type->make( "obj" );
  14         27  
  14         62  
33 14     14   85 use constant TYPE_ANY => Tangence::Type->make( "any" );
  14         31  
  14         50  
34              
35 14     14   100 use constant TYPE_LIST_STR => Tangence::Type->make( list => TYPE_STR );
  14         25  
  14         59  
36 14     14   90 use constant TYPE_LIST_ANY => Tangence::Type->make( list => TYPE_ANY );
  14         33  
  14         49  
37              
38 14     14   86 use constant TYPE_DICT_ANY => Tangence::Type->make( dict => TYPE_ANY );
  14         37  
  14         49  
39              
40             0x55AA;