File Coverage

blib/lib/Types/Common.pm
Criterion Covered Total %
statement 24 25 96.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 33 35 94.2


line stmt bran cond sub pod time code
1             package Types::Common;
2              
3 12     12   214575 use 5.008001;
  12         81  
4 12     12   90 use strict;
  12         23  
  12         295  
5 12     12   71 use warnings;
  12         24  
  12         929  
6              
7             BEGIN {
8 12     12   41 eval { require re };
  12         66  
9 12 50       626 if ( $] < 5.010 ) { require Devel::TypeTiny::Perl58Compat }
  0         0  
10             }
11              
12             BEGIN {
13 12     12   41 $Types::Common::AUTHORITY = 'cpan:TOBYINK';
14 12         752 $Types::Common::VERSION = '2.002001';
15             }
16              
17             our ( @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
18              
19             use Type::Library
20 12         162 -extends => [ qw(
21             Types::Standard
22             Types::Common::Numeric
23             Types::Common::String
24             Types::TypeTiny
25 12     12   5802 ) ];
  12         37  
26              
27 12     12   8126 use Type::Params -sigs;
  12         35  
  12         123  
28             $EXPORT_TAGS{sigs} = $Type::Params::EXPORT_TAGS{sigs};
29             push @EXPORT_OK, @{ $EXPORT_TAGS{sigs} };
30              
31             sub _generate_t {
32 2     2   82 my $package = shift;
33 2         1211 require Type::Registry;
34 2         13 my $t = 'Type::Registry'->_generate_t( @_ );
35 2         11 $t->()->add_types( $package );
36 2         14 return $t;
37             }
38             push @EXPORT_OK, 't';
39              
40             __PACKAGE__->meta->make_immutable;
41              
42             __END__