File Coverage

blib/lib/OptArgs2/OptArgBase_CI.pm
Criterion Covered Total %
statement 35 41 85.3
branch 11 22 50.0
condition n/a
subroutine 14 15 93.3
pod 0 8 0.0
total 60 86 69.7


line stmt bran cond sub pod time code
1             # Generated by Class::Inline version 0.0.1
2             # Date: Tue Sep 27 10:34:54 2022
3 3     3   25 use strict;
  3         6  
  3         80  
4 3     3   13 use warnings;
  3         4  
  3         525  
5              
6              
7 3 50   3 0 20 package OptArgs2::OptArgBase;our$_HAS;sub OptArgs2::OptArgBase_CI::import {shift;$_HAS={@_ > 1 ? @_ : %{$_[0]}};$_HAS=$_HAS->{'has'}if exists$_HAS->{'has'}}sub __RO {my (undef,undef,undef,$sub)=caller(1);Carp::croak("attribute $sub is read-only")}sub __CHECK {if (my@missing=grep {not exists $_[0]->{$_}}'comment','isa','name'){Carp::croak('OptArgs2::OptArgBase attribute(s) required: ' .join(', ',@missing))}no strict 'refs';my$_attrs=*{ref($_[0]).'::_ATTRS'};map {delete$_attrs->{$_}}keys %$_HAS}sub comment {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'comment'}}sub default {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'default'}}sub getopt {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'getopt'}}sub isa {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'isa'}}sub isa_name {if (@_ > 1){$_[0]{'isa_name'}=$_[1];return $_[0]}$_[0]{'isa_name'}}sub name {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'name'}}sub required {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'required'}}sub show_default {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'show_default'}}BEGIN {$INC{'OptArgs2/OptArgBase.pm'}=__FILE__}
  3 50   3 0 4  
  3 50   14 0 1088  
  3 50   0 0 77  
  14 50   8 0 22  
  42 50   20 0 122  
  0 50   13 0 0  
  14 50   3 0 20  
  14 50   28   49  
  14 50   8   43  
  112 50   32   161  
  0     37   0  
  0     8   0  
  8         19  
  8         15  
  20         42  
  20         96  
  13         30  
  13         42  
  3         6  
  3         14  
  0         0  
  3         284  
  28         56  
  28         132  
  8         17  
  0         0  
  0         0  
  8         44  
  32         75  
  32         110  
  37         82  
  37         133  
  8         16  
  8         50  
8             1;