2
_I|M dv &K
Index of /configAHR/Jump/0-coastlinecompg/FSS-OZR/root/usr/src/kernels/5.14.0-687.26.1.el9_8.x86_64/net/rfkill
Index of /configAHR/Jump/0-coastlinecompg/FSS-OZR/root/usr/src/kernels/5.14.0-687.26.1.el9_8.x86_64/net/rfkill
0
lm_J *h mA
Jbѿ
dM8_ ub
&=LV[( ?
#============================================================================
#
# AppConfig.pm
#
# Perl5 module for reading and parsing configuration files and command line
# arguments.
#
# Written by Andy Wardley
#
# Copyright (C) 1997-2007 Andy Wardley. All Rights Reserved.
# Copyright (C) 1997,1998 Canon Research Centre Europe Ltd.
#==========================================================================
package AppConfig;
use 5.006;
use strict;
use warnings;
use base 'Exporter';
our $VERSION = '1.71';
# variable expansion constants
use constant EXPAND_NONE => 0;
use constant EXPAND_VAR => 1;
use constant EXPAND_UID => 2;
use constant EXPAND_ENV => 4;
use constant EXPAND_ALL => EXPAND_VAR | EXPAND_UID | EXPAND_ENV;
use constant EXPAND_WARN => 8;
# argument count types
use constant ARGCOUNT_NONE => 0;
use constant ARGCOUNT_ONE => 1;
use constant ARGCOUNT_LIST => 2;
use constant ARGCOUNT_HASH => 3;
# Exporter tagsets
our @EXPAND = qw(
EXPAND_NONE
EXPAND_VAR
EXPAND_UID
EXPAND_ENV
EXPAND_ALL
EXPAND_WARN
);
our @ARGCOUNT = qw(
ARGCOUNT_NONE
ARGCOUNT_ONE
ARGCOUNT_LIST
ARGCOUNT_HASH
);
our @EXPORT_OK = ( @EXPAND, @ARGCOUNT );
our %EXPORT_TAGS = (
expand => [ @EXPAND ],
argcount => [ @ARGCOUNT ],
);
our $AUTOLOAD;
require AppConfig::State;
#------------------------------------------------------------------------
# new(\%config, @vars)
#
# Module constructor. All parameters passed are forwarded onto the
# AppConfig::State constructor. Returns a reference to a newly created
# AppConfig object.
#------------------------------------------------------------------------
sub new {
my $class = shift;
bless {
STATE => AppConfig::State->new(@_)
}, $class;
}
#------------------------------------------------------------------------
# file(@files)
#
# The file() method is called to parse configuration files. An
# AppConfig::File object is instantiated and stored internally for
# use in subsequent calls to file().
#------------------------------------------------------------------------
sub file {
my $self = shift;
my $state = $self->{ STATE };
my $file;
require AppConfig::File;
# create an AppConfig::File object if one isn't defined
$file = $self->{ FILE } ||= AppConfig::File->new($state);
# call on the AppConfig::File object to process files.
$file->parse(@_);
}
#------------------------------------------------------------------------
# args(\@args)
#
# The args() method is called to parse command line arguments. An
# AppConfig::Args object is instantiated and then stored internally for
# use in subsequent