The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
— |
#!perl
my %options ;
my $cfg =Config::Any->load_stems({ stems =>[ $ENV {HOME}. "/.jc" ], use_ext =>1});
for ( @$cfg ) {
my ( $filename , $config ) = %$_ ;
$options {url}= $config ->{ 'url' } if defined ( $config ->{ 'url' });
$options {user}= $config ->{ 'user' } if defined ( $config ->{ 'user' });
$options {pass}= $config ->{ 'pass' } if defined ( $config ->{ 'pass' });
$options {defaulttasktype}= $config ->{ 'default' }->{ 'tasktype' } if defined ( $config ->{ 'default' }->{ 'tasktype' });
}
$options {cfg}= $cfg ;
App::JC::Client->new_with_command( %options )->run;
|