File Coverage

blib/lib/OptArgs2/OptArgBase.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch	10	20	50.0
condition	9	15	60.0
subroutine	10	11	90.9
pod	0	7	0.0
total	56	84	66.6

package OptArgs2::OptArgBase;
use strict;
use warnings;

### START Class::Inline ### v0.0.1 Wed Dec  3 12:04:29 2025
require Carp;
our ( @_CLASS, $_FIELDS, %_NEW );

sub _NEW {
    CORE::state $fix_FIELDS = do {
        $_FIELDS = { @_CLASS > 1 ? @_CLASS : %{ $_CLASS[0] } };
        $_FIELDS = $_FIELDS->{'FIELDS'} if exists $_FIELDS->{'FIELDS'};
    };
    if ( my @missing = grep { not exists $_[0]->{$_} } 'comment', 'name' ) {
        Carp::croak( 'OptArgs2::OptArgBase required initial argument(s): '
              . join( ', ', @missing ) );
    }
    map { delete $_[1]->{$_} } 'comment', 'default', 'encoding', 'getopt',
      'name', 'required', 'show_default';
}

sub __RO {
    my ( undef, undef, undef, $sub ) = caller(1);
    Carp::confess("attribute $sub is read-only");
}
sub comment { __RO() if @_ > 1; $_[0]{'comment'} // undef }
sub default { __RO() if @_ > 1; $_[0]{'default'} // undef }

sub encoding {
    __RO() if @_ > 1;
    $_[0]{'encoding'} //= $_FIELDS->{'encoding'}->{'default'};
}
sub getopt       { __RO() if @_ > 1; $_[0]{'getopt'}       // undef }
sub name         { __RO() if @_ > 1; $_[0]{'name'}         // undef }
sub required     { __RO() if @_ > 1; $_[0]{'required'}     // undef }
sub show_default { __RO() if @_ > 1; $_[0]{'show_default'} // undef }
@_CLASS = grep 1,    ### END Class::Inline ###
  abstract => 1,
  FIELDS   => {
    comment      => { required => 1, },
    default      => {},
    encoding     => { default => ':encoding(UTF-8)' },
    getopt       => {},
    name         => { required => 1, },
    required     => {},
    show_default => {},
  },
  ;

our @CARP_NOT = @OptArgs2::CARP_NOT;

1;

__END__