File Coverage

blib/lib/Perinci/Object.pm
Criterion Covered Total %
statement 22 24 91.6
branch n/a
condition n/a
subroutine 10 11 90.9
pod 8 8 100.0
total 40 43 93.0


line stmt bran cond sub pod time code
1             ## no critic: (Modules::ProhibitAutomaticExportation)
2              
3             package Perinci::Object;
4              
5             our $DATE = '2018-10-18'; # DATE
6             our $VERSION = '0.310'; # VERSION
7              
8 7     7   490072 use 5.010001;
  7         97  
9 7     7   47 use strict;
  7         23  
  7         228  
10 7     7   43 use warnings;
  7         10  
  7         2655  
11              
12             require Exporter;
13             our @ISA = qw(Exporter);
14             our @EXPORT = qw(rimeta risub rivar ripkg envres envresmulti envrestable
15             riresmeta);
16              
17             sub rimeta {
18 4     4 1 2115 require Perinci::Object::Metadata;
19 4         18 Perinci::Object::Metadata->new(@_);
20             }
21              
22             sub risub {
23 12     12 1 2798 require Perinci::Object::Function;
24 12         54 Perinci::Object::Function->new(@_);
25             }
26              
27             sub rivar {
28 1     1 1 564 require Perinci::Object::Variable;
29 1         14 Perinci::Object::Variable->new(@_);
30             }
31              
32             sub ripkg {
33 1     1 1 474 require Perinci::Object::Package;
34 1         13 Perinci::Object::Package->new(@_);
35             }
36              
37             sub envres {
38 1     1 1 525 require Perinci::Object::EnvResult;
39 1         8 Perinci::Object::EnvResult->new(@_);
40             }
41              
42             sub envresmulti {
43 5     5 1 3562 require Perinci::Object::EnvResultMulti;
44 5         24 Perinci::Object::EnvResultMulti->new(@_);
45             }
46              
47             sub envrestable {
48 0     0 1 0 require Perinci::Object::EnvResultTable;
49 0         0 Perinci::Object::EnvResultTable->new(@_);
50             }
51              
52             sub riresmeta {
53 1     1 1 470 require Perinci::Object::ResMeta;
54 1         12 Perinci::Object::ResMeta->new(@_);
55             }
56              
57             1;
58             # ABSTRACT: Object-oriented interface for Rinci metadata
59              
60             __END__