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         7  
  3         83  
4 3     3   13 use warnings;
  3         4  
  3         124  
5              
6              
7 3 50 33 3 0 14 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 550  
  3 50 66 3 0 20  
  3 50   3   6  
  3 50   6   706  
  3 50   0   23  
  3 50   18   7  
  3 50   3   544  
  3 50   4   79  
  6     6   21  
  6         23  
  0         0  
  6         9  
  6         20  
  6         15  
  12         25  
  0         0  
  0         0  
  18         35  
  18         54  
  3         5  
  3         39  
  0         0  
  3         270  
  4         9  
  4         22  
  6         10  
  6         36  
  0         0  
  6         21  
  19         39  
  6         41  
  6         21  
  3         9  
  3         6  
  3         8  
  6         10  
  6         9  
  6         30  
  6         8  
  6         24  
  6         8  
  6         28  
  3         14  
  6         10  
  24         73  
  6         12  
  6         14  
  6         18  
8             1;