use strict;
use warnings;
use NAB::Utils::NP;

my $np = NAB::Utils::NP->new;

test( -option1=>undef, -option3=>'c' );
test( 'a', 'b', 'c' );
__PACKAGE__->test( -option1=>'a', -option3=>'c' );
__PACKAGE__->test( 'a', 'b', 'c' );

sub test
{
    my($option1,$option2,$option3) =
        $np->named_param( [qw/ OPTION1 OPTION2 OPTION3 /], @_);

    print <<OPTIONS
\$option1=$option1
\$option2=$option2
\$option3=$option3

OPTIONS
;

}