File Coverage

blib/lib/OptArgs2/Cmd_CI.pm
Criterion Covered Total %
statement 48 52 92.3
branch 8 16 50.0
condition 5 12 41.6
subroutine 11 12 91.6
pod 0 3 0.0
total 72 95 75.7


line stmt bran cond sub pod time code
1             # Generated by Class::Inline version 0.0.1
2             # Date: Mon Oct 3 17:29:06 2022
3 3     3   18 use strict;
  3         5  
  3         81  
4 3     3   20 use warnings;
  3         5  
  3         117  
5              
6              
7 3 50 33 3 0 15 package OptArgs2::Cmd;BEGIN {require OptArgs2::CmdBase;our@ISA=('OptArgs2::CmdBase')};our$_HAS;sub OptArgs2::Cmd_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::Cmd 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}sub name {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'name'}//= $_HAS->{'name'}->{'default'}->($_[0])}sub no_help {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'no_help'}//= $_HAS->{'no_help'}->{'default'}}BEGIN {$INC{'OptArgs2/Cmd.pm'}=__FILE__}
  3 50 33 3 0 546  
  3 50 66 3 0 19  
  3 50 33 3   16  
  3 50   6   591  
  3 50   0   38  
  3 50   3   11  
  3 50   4   586  
  3     6   78  
  6     6   6  
  6         21  
  6         20  
  12         23  
  0         0  
  0         0  
  3         6  
  3         23  
  0         0  
  3         527  
  4         10  
  4         19  
  6         9  
  6         37  
  0         0  
  6         22  
  19         38  
  6         32  
  6         20  
  3         9  
  3         6  
  3         10  
  6         12  
  6         9  
  6         29  
  6         9  
  6         24  
  6         9  
  6         38  
  3         27  
  6         10  
  24         79  
  6         11  
  6         20  
  6         17  
  6         13  
  6         47  
8             1;