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.33;
7              
8 14     14   1077 use v5.26;
  14         48  
9 14     14   70 use warnings;
  14         27  
  14         823  
10              
11 14     14   76 use Exporter 'import';
  14         25  
  14         944  
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   5417 use Tangence::Type;
  14         54  
  14         1204  
27              
28 14     14   103 use constant TYPE_BOOL => Tangence::Type->make( "bool" );
  14         27  
  14         62  
29 14     14   90 use constant TYPE_U8 => Tangence::Type->make( "u8" );
  14         30  
  14         59  
30 14     14   90 use constant TYPE_INT => Tangence::Type->make( "int" );
  14         37  
  14         79  
31 14     14   114 use constant TYPE_STR => Tangence::Type->make( "str" );
  14         27  
  14         85  
32 14     14   81 use constant TYPE_OBJ => Tangence::Type->make( "obj" );
  14         26  
  14         62  
33 14     14   155 use constant TYPE_ANY => Tangence::Type->make( "any" );
  14         30  
  14         55  
34              
35 14     14   88 use constant TYPE_LIST_STR => Tangence::Type->make( list => TYPE_STR );
  14         56  
  14         77  
36 14     14   87 use constant TYPE_LIST_ANY => Tangence::Type->make( list => TYPE_ANY );
  14         28  
  14         88  
37              
38 14     14   123 use constant TYPE_DICT_ANY => Tangence::Type->make( dict => TYPE_ANY );
  14         25  
  14         58  
39              
40             =head1 NAME
41              
42             C - type constants for C
43              
44             =head1 DESCRIPTION
45              
46             This module is a component of L or L. It
47             is not intended for end-user use directly.
48              
49             =cut
50              
51             =head1 AUTHOR
52              
53             Paul Evans
54              
55             =cut
56              
57             0x55AA;