File Coverage

blib/lib/OptArgs2/Cmd_CI.pm
Criterion Covered Total %
statement 50 55 90.9
branch 9 18 50.0
condition 4 9 44.4
subroutine 11 12 91.6
pod 0 3 0.0
total 74 97 76.2


line stmt bran cond sub pod time code
1             # Generated by Class::Inline version 0.0.1
2             # Date: Tue Sep 27 10:07:02 2022
3 3     3   20 use strict;
  3         6  
  3         115  
4 3     3   15 use warnings;
  3         4  
  3         139  
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 {if (my@missing=grep {not exists $_[0]->{$_}}'class'){Carp::croak('OptArgs2::Cmd attribute(s) required: ' .join(', ',@missing))}no strict 'refs';my$_attrs=*{ref($_[0]).'::_ATTRS'};map {delete$_attrs->{$_}}keys %$_HAS}sub class {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'class'}}sub name {$_[0]->__RO($_[1])if @_ > 1;$_[0]{'name'}//= $_HAS->{'name'}->{'default'}->($_[0])}BEGIN {$INC{'OptArgs2/Cmd.pm'}=__FILE__}
  3 50 33 3 0 578  
  3 50 66 3 0 22  
  3 50   3   6  
  3 50   6   732  
  3 50   0   21  
  3 50   18   12  
  3 50   3   583  
  3 50   4   121  
  6     6   12  
  6         24  
  0         0  
  6         10  
  6         19  
  6         18  
  12         26  
  0         0  
  0         0  
  18         32  
  18         576  
  3         6  
  3         15  
  0         0  
  3         304  
  4         28  
  4         27  
  6         14  
  6         41  
  0         0  
  6         21  
  19         41  
  6         33  
  6         26  
  3         9  
  3         6  
  3         10  
  6         9  
  6         9  
  6         33  
  6         8  
  6         26  
  6         9  
  6         35  
  3         15  
  6         7  
  24         87  
  6         15  
  6         17  
  6         20  
8             1;