#
Argument Parsing Sub-Routines | webally.co.za
By
my %args = @_ && ref $_[0] eq 'HASH' ? %{ $_[0] } : @_;
bless { %args }, $class;my %args = @_ && ref $_[0] eq 'HASH' ? %{ $_[0] } : @_;
bless { %args }, $class;