use strict;
use warnings;
use Data::Dumper;

my $test = TestMod->new();

print "Correct, deprecated, list test:\n";
$test->test_sub('cLive ;-)',34,'curious');

print "Incorrect, deprecated, list test (too many args):\n";
$test->test_sub('cLive ;-)',34,'curious','bad arg');

print "Correct, hashref test:\n";
$test->test_sub({-name   => "cLive ;-)",
                 -age    => "34",
                 -mood   => "curious"});

print "Incorrect, hashref test:\n";
$test->test_sub({-name   => "cLive ;-)",
                 -age    => "34",
                 -badarg => 1,
                 -mood   => "curious"});

exit(0);

package TestMod;
use strict;
use warnings;

sub new {
    return bless {}, ref $_[0] || $_[0];
}

sub fix_args {
    my ($self,$arg)= @_;
    defined $arg->{-arg_names} or return {};
    
    my @arg_names = @{$arg->{-arg_names}};
    my @arg_values  = @{$arg->{-arg_values}};
    
    my $fixed_arg = {};
    if (ref $arg_values[1] eq 'HASH') {
        # if hash, check no incorrect args sent
        $fixed_arg = $arg_values[1];
        my %arg_test = %{$arg_values[1]};
        delete $arg_test{$_} for (@arg_names);
        keys %{arg_test} and warn "Invalid argument sent to sub. Valid args are: @arg_names" and return;
    }
    else {
        # array - map to keys, set to '' if not sent (backwards compatability with some subs).
        shift @arg_values; # "unbless"
        
        @arg_values>@arg_names and warn "Too many arguments!" and return;
        
        for (0..$#arg_names) {
            $fixed_arg->{$arg_names[$_]} = $arg_values[$_] || '';
        }
    }
    return $fixed_arg;
}

sub test_sub {
    my $self = $_[0];
    my $arg = $self->fix_args({ -arg_names => ['-name','-age','-mood'],
                                -arg_values  => \@_
                             });
    print Data::Dumper::Dumper($arg),'-'x50,"\n";
}

##</code><code>##

    my $arg = $self->fix_args({ -arg_names => ['-name','-age','-mood'],
                                -arg_values  => \@_
                             });