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 15     15   206069 use 5.008001;
  15         101  
4 15     15   81 use strict;
  15         39  
  15         324  
5 15     15   73 use warnings;
  15         38  
  15         1064  
6              
7             BEGIN {
8 15     15   54 eval { require re };
  15         91  
9 15 50       750 if ( $] < 5.010 ) { require Devel::TypeTiny::Perl58Compat }
  0         0  
10             }
11              
12             BEGIN {
13 15     15   50 $Types::Common::AUTHORITY = 'cpan:TOBYINK';
14 15         874 $Types::Common::VERSION = '2.004000';
15             }
16              
17             our ( @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
18              
19             use Type::Library
20 15         185 -extends => [ qw(
21             Types::Standard
22             Types::Common::Numeric
23             Types::Common::String
24             Types::TypeTiny
25 15     15   6337 ) ];
  15         45  
26              
27 15     15   9896 use Type::Params -sigs;
  15         39  
  15         207  
28             $EXPORT_TAGS{sigs} = $Type::Params::EXPORT_TAGS{sigs};
29             push @EXPORT_OK, @{ $EXPORT_TAGS{sigs} };
30              
31             sub _generate_t {
32 2     2   73 my $package = shift;
33 2         927 require Type::Registry;
34 2         11 my $t = 'Type::Registry'->_generate_t( @_ );
35 2         8 $t->()->add_types( $package );
36 2         12 return $t;
37             }
38             push @EXPORT_OK, 't';
39              
40             __PACKAGE__->meta->make_immutable;
41              
42             __END__