File Coverage

blib/lib/Data/Sah/Object.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Sah::Object;
2              
3             our $DATE = '2014-07-28'; # DATE
4             our $VERSION = '0.01'; # VERSION
5              
6 1     1   23695 use 5.010001;
  1         5  
  1         41  
7 1     1   7 use strict;
  1         1  
  1         39  
8 1     1   4 use warnings;
  1         2  
  1         170  
9              
10             require Exporter;
11             our @ISA = qw(Exporter);
12             our @EXPORT = qw(sah sahn);
13              
14             sub sah {
15 6     6 1 11004 require Data::Sah::Object::Schema;
16 6         32 Data::Sah::Object::Schema->new($_[0]);
17             }
18              
19             sub sahn {
20 1     1 1 1703 require Data::Sah::Object::Schema;
21 1         27 Data::Sah::Object::Schema->new($_[0], 1);
22             }
23              
24             1;
25             # ABSTRACT: Object-oriented interface for Sah schemas
26              
27             __END__