File Coverage

blib/lib/Data/Rx/TypeBundle/Perl.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 28 29 96.5


line stmt bran cond sub pod time code
1 1     1   21940 use strict;
  1         12  
  1         27  
2 1     1   5 use warnings;
  1         1  
  1         33  
3             package Data::Rx::TypeBundle::Perl 0.011;
4 1     1   4 use base 'Data::Rx::TypeBundle';
  1         2  
  1         118  
5             # ABSTRACT: experimental / perl types
6              
7 1     1   363 use Data::Rx::Type::Perl::Code;
  1         2  
  1         25  
8 1     1   340 use Data::Rx::Type::Perl::Obj;
  1         2  
  1         23  
9 1     1   352 use Data::Rx::Type::Perl::Ref;
  1         3  
  1         64  
10              
11             #pod =head1 SYNOPSIS
12             #pod
13             #pod use Data::Rx;
14             #pod use Data::Rx::Type::Perl;
15             #pod use Test::More tests => 2;
16             #pod
17             #pod my $rx = Data::Rx->new({
18             #pod type_plugins => [ qw(Data::Rx::TypeBundle::Perl) ],
19             #pod });
20             #pod
21             #pod my $isa_rx = $rx->make_schema({
22             #pod type => '/perl/obj',
23             #pod isa => 'Data::Rx',
24             #pod });
25             #pod
26             #pod ok($isa_rx->check($rx), "a Data::Rx object isa Data::Rx /perl/obj");
27             #pod ok(! $isa_rx->check( 1 ), "1 is not a Data::Rx /perl/obj");
28             #pod
29             #pod =cut
30              
31             sub _prefix_pairs {
32             return (
33 1     1   10321 perl => 'tag:codesimply.com,2008:rx/perl/',
34             );
35             }
36              
37             sub type_plugins {
38 1     1 0 17 return qw(
39             Data::Rx::Type::Perl::Code
40             Data::Rx::Type::Perl::Obj
41             Data::Rx::Type::Perl::Ref
42             );
43             }
44              
45             1;
46              
47             __END__