#!/usr/bin/perl -w
use strict;
use warnings;
package Foo;
use Method::Signatures;
use Test::More 'no_plan';
method silly(
$num = 42,
$string = q[Hello, world!],
$hash = { this => 42, that => 23 },
$code = sub { $num + 4 },
@nums = (1,2,3)
)
{
return(
num => $num,
string => $string,
hash => $hash,
code => $code->(),
nums => \@nums
);
}
is_deeply {Foo->silly()}, {
num => 42,
string => 'Hello, world!',
hash => { this => 42, that => 23 },
code => 46,
nums => [1,2,3]
};