package Anki::Import ; use strict; use warnings; use Path::Tiny; use Getopt::Args; use Log::Log4perl::Shortcuts qw(:all); use Exporter qw(import); our @EXPORT = qw(anki_import); # attempt to use Getop::Args opt verbose => ( isa => 'Bool', alias => 'v', comment => 'provide details on progress of Anki::Import' ); my $ref = optargs; sub anki_import { my $file = shift; # attempt to use Getopt::Args $ref variable to set up log levels if ($ref->{verbose}) { set_log_level('info'); } else { set_log_level('error'); } }