Re^2: Send hash of hash arguments to sub

Another possibility is:

my %hash = (Mary => { Maria => 0.8}, other_keys => "other_values");

sub probability (\%$$)
{
    my ($hash_ref, $source, $target) = @_;
    return $hash_ref->{$source}{$target};
}

my $test = probability(%hash, "Mary", "Maria");
print "$test\n";
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Comment on Re^2: Send hash of hash arguments to sub Download Code