File Coverage

blib/lib/OpenAPI/Generator.pm
Criterion Covered Total %
statement 17 18 94.4
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package OpenAPI::Generator;
2              
3 3     3   183172 use strict;
  3         24  
  3         75  
4 3     3   14 use warnings;
  3         4  
  3         75  
5              
6 3     3   13 use Exporter qw(import);
  3         3  
  3         81  
7 3     3   14 use Carp;
  3         4  
  3         584  
8              
9             our $VERSION = '0.06';
10             our @EXPORT = qw(openapi_from);
11              
12             sub openapi_from {
13 5     5 1 35067 my($module, $conf) = @_;
14 5         25 $module = 'OpenAPI::Generator::From::'.join('', map { ucfirst lc } split /_/, "$module");
  5         28  
15              
16 5 50       431 unless (eval "require $module") {
17 0         0 croak "generator '$module' not found"
18             }
19              
20 5         34 $module->new->generate($conf)
21             }
22              
23             1
24              
25             __END__