File Coverage

blib/lib/OptArgs2/Arg_CI.pm
Criterion Covered Total %
statement 51 58 87.9
branch 11 22 50.0
condition 4 9 44.4
subroutine 12 13 92.3
pod 0 4 0.0
total 78 106 73.5


line stmt bran cond sub pod time code
1             # Generated by Class::Inline version 0.0.1
2             # Date: Wed Sep 28 12:41:54 2022
3 3     3   16 use strict;
  3         4  
  3         74  
4 3     3   12 use warnings;
  3         4  
  3         113  
5              
6              
7 3 50 33 3 0 15 package OptArgs2::Arg;BEGIN {require OptArgs2::OptArgBase;our@ISA=('OptArgs2::OptArgBase')};require Scalar::Util;our$_HAS;sub OptArgs2::Arg_CI::import {shift;$_HAS={@_ > 1 ? @_ : %{$_[0]}};$_HAS=$_HAS->{'has'}if exists$_HAS->{'has'}}our%_ATTRS;my%_BUILD_CHECK;sub new {my$class=shift;my$self={@_ ? @_ > 1 ? @_ : %{$_[0]}: ()};%_ATTRS=map {($_=>1)}keys %$self;bless$self,ref$class || $class;$_BUILD_CHECK{$class}//= do {my@possible=($class);my@BUILD;my@CHECK;while (@possible){no strict 'refs';my$c=shift@possible;push@BUILD,$c .'::BUILD' if exists &{$c .'::BUILD'};push@CHECK,$c .'::__CHECK' if exists &{$c .'::__CHECK'};push@possible,@{$c .'::ISA'}}[reverse(@CHECK),reverse(@BUILD)]};map {$self->$_}@{$_BUILD_CHECK{$class}};Carp::carp("OptArgs2::Arg attribute '$_' unexpected")for keys%_ATTRS;$self}sub __RO {my (undef,undef,undef,$sub)=caller(1);Carp::croak("attribute $sub is read-only")}sub __CHECK {no strict 'refs';my$_attrs=*{ref($_[0]).'::_ATTRS'};map {delete$_attrs->{$_}}keys %$_HAS;Scalar::Util::weaken($_[0]{'cmd'})if exists $_[0]{'cmd'}&& defined $_[0]{'cmd'}}sub cmd {if (@_ > 1){$_[0]{'cmd'}=$_[1];Scalar::Util::weaken($_[0]{'cmd'})if defined $_[0]{'cmd'};return $_[0]}$_[0]{'cmd'}}sub fallthru {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'fallthru'}}sub greedy {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'greedy'}}BEGIN {$INC{'OptArgs2/Arg.pm'}=__FILE__}
  3 0 33 3 0 525  
  3 50 66 3 0 17  
  3 50   3 0 11  
  3 50   6   594  
  3 50   0   16  
  3 50   4   6  
  3 50   3   802  
  3 50   8   84  
  6 100   3   18  
  6 50   6   19  
  6         15  
  18         26  
  6         71  
  0         0  
  0         0  
  4         26  
  0         0  
  0         0  
  0         0  
  4         12  
  3         8  
  3         37  
  8         25  
  8         39  
  3         14  
  3         13  
  0         0  
  3         616  
  6         15  
  6         27  
  0         0  
  6         18  
  35         50  
  6         26  
  6         35  
  3         16  
  3         7  
  3         17  
  6         12  
  6         7  
  6         27  
  6         9  
  6         21  
  6         9  
  6         26  
  3         16  
  6         6  
  18         58  
  6         12  
  6         19  
  6         11  
8             1;