my %args;
    
    if (ref $_[0] eq "HASH") {
        %args = %{$_[0]};
    } else {
        @args{qw(flags img name big gallery page caption num)} = @_;
    }

##</code><code>##

$defaults = { flags => 0x8001, img => "/path/file.jpg", ... };
for (qw( flags img name big gallery page caption num ) )  {
    $$_ = $opts->{$_} || $defaults->{$_};
}