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 $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
6             our $DATE = '2021-01-02'; # DATE
7             our $DIST = 'Perinci-Object'; # DIST
8             our $VERSION = '0.311'; # VERSION
9              
10 7     7   510430 use 5.010001;
  7         95  
11 7     7   55 use strict;
  7         11  
  7         241  
12 7     7   44 use warnings;
  7         11  
  7         2518  
13              
14             require Exporter;
15             our @ISA = qw(Exporter);
16             our @EXPORT = qw(rimeta risub rivar ripkg envres envresmulti envrestable
17             riresmeta);
18              
19             sub rimeta {
20 4     4 1 2302 require Perinci::Object::Metadata;
21 4         22 Perinci::Object::Metadata->new(@_);
22             }
23              
24             sub risub {
25 12     12 1 3058 require Perinci::Object::Function;
26 12         56 Perinci::Object::Function->new(@_);
27             }
28              
29             sub rivar {
30 1     1 1 516 require Perinci::Object::Variable;
31 1         14 Perinci::Object::Variable->new(@_);
32             }
33              
34             sub ripkg {
35 1     1 1 515 require Perinci::Object::Package;
36 1         14 Perinci::Object::Package->new(@_);
37             }
38              
39             sub envres {
40 1     1 1 546 require Perinci::Object::EnvResult;
41 1         9 Perinci::Object::EnvResult->new(@_);
42             }
43              
44             sub envresmulti {
45 6     6 1 4341 require Perinci::Object::EnvResultMulti;
46 6         30 Perinci::Object::EnvResultMulti->new(@_);
47             }
48              
49             sub envrestable {
50 0     0 1 0 require Perinci::Object::EnvResultTable;
51 0         0 Perinci::Object::EnvResultTable->new(@_);
52             }
53              
54             sub riresmeta {
55 1     1 1 498 require Perinci::Object::ResMeta;
56 1         13 Perinci::Object::ResMeta->new(@_);
57             }
58              
59             1;
60             # ABSTRACT: Object-oriented interface for Rinci metadata
61              
62             __END__