File Coverage

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


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