my $instance;
$instance = shift @$args if blessed $args->[0];
- my %args
+ my %args
= @$args == 1
&& ref $args->[0]
&& reftype( $args->[0] ) eq 'HASH' ? %{ $args->[0] } : @$args;
my $instance;
$instance = shift @$args if blessed $args->[0];
- my %args
+ my %args
= @$args == 1
&& ref $args->[0]
&& reftype( $args->[0] ) eq 'HASH' ? %{ $args->[0] } : @$args;