dir );
use IPC::SRLock::Constants ( );
my $Assert = sub {};
my $Config_Extn = '.json';
my $Exception_Class = 'Class::Usul::Exception';
my $Log_Levels = [ qw( alert debug error f
ead2 COMMA
The comma character
=head2 CONFIG_EXTN
The default configuration file extension, F<.json>. Change this by
setting the C<Config_Extn> class attribute
=head2 DEFAULT_CONFHOME
Default dir
A hash reference loaded from from a file selected by OS name. The file is named
like F<os_linux.json> and can be found in the configuration C<ctrldir>
=item C<owner>
String. Name of the applicatio
},
'File::DataClass::IO' => sub { $_[ 0 ]->pathname },
'JSON::XS::Boolean' => sub { $_[ 0 ].q() },
'Type::Tiny' => sub {
Provides the DBIC connect information array reference
=head1 Configuration and Environment
The JSON data looks like this:
{
"credentials" : {
"schedule" : {
"driver" : "m
scribe_options );
use Data::Record;
use Encode qw( decode );
use JSON::MaybeXS qw( decode_json );
use Scalar::Util qw( blessed );
use Moo::Role;
my $Extra_Argv = []
val; defined ($val = $cmdline_opt->$name()) and
$params->{ $name } = $option->{json} ? decode_json( $val ) : $val;
}
$option->{required} and not defined $params->{ $name }
ata::Record>
=item L<Encode>
=item L<Getopt::Long>
=item L<Getopt::Long::Descriptive>
=item L<JSON::MaybeXS>
=item L<Moo::Role>
=back
=head1 Incompatibilities
There are no known incompatibilit
:Install qw( install_sub );
my @option_attributes
= qw( autosplit config doc format json negateable order repeatable short );
my @banished_keywords
= qw( extra_argv new_with_options
} = $options{documentation};
defined $options{order} or $options{order} = 0;
if ($options{json}) {
delete $options{repeatable}; delete $options{autosplit};
delete $options{negateab
f : float value
By default, it's a boolean value.
=item C<json>
Boolean which if true means that the argument to the option is in JSON format
and will be decoded as such
=item C<negateable>
App