Sophie: perl-Devel-TakeHashArgs-0.6.0-6.mga7 noarch

perl-Devel-TakeHashArgs-0.6.0-6.mga7.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

#!/usr/bin/env perl

use strict;
use warnings;
use lib '../lib';

use Devel::TakeHashArgs;
use Carp;

sub foos {
    get_args_as_hash(\@_, \my %args, { foos => 'bars' } )
        or croak $@;

    use Data::Dumper;
    print Dumper \%args;
}
foos(1..4);

print "Now die!\n";
foos(1..3);