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.28;
7              
8 14     14   742 use v5.26;
  14         38  
9 14     14   62 use warnings;
  14         22  
  14         364  
10              
11 14     14   60 use Exporter 'import';
  14         21  
  14         725  
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   4230 use Tangence::Type;
  14         34  
  14         574  
27              
28 14     14   90 use constant TYPE_BOOL => Tangence::Type->make( "bool" );
  14         24  
  14         63  
29 14     14   76 use constant TYPE_U8 => Tangence::Type->make( "u8" );
  14         21  
  14         44  
30 14     14   76 use constant TYPE_INT => Tangence::Type->make( "int" );
  14         24  
  14         40  
31 14     14   70 use constant TYPE_STR => Tangence::Type->make( "str" );
  14         25  
  14         53  
32 14     14   77 use constant TYPE_OBJ => Tangence::Type->make( "obj" );
  14         29  
  14         45  
33 14     14   71 use constant TYPE_ANY => Tangence::Type->make( "any" );
  14         26  
  14         36  
34              
35 14     14   72 use constant TYPE_LIST_STR => Tangence::Type->make( list => TYPE_STR );
  14         24  
  14         50  
36 14     14   75 use constant TYPE_LIST_ANY => Tangence::Type->make( list => TYPE_ANY );
  14         30  
  14         51  
37              
38 14     14   77 use constant TYPE_DICT_ANY => Tangence::Type->make( dict => TYPE_ANY );
  14         25  
  14         64  
39              
40             0x55AA;