110
|
0 |
0 |
$__signature ||= sub {
my(%tmp, $tmp);
Hydrogen::croak("Wrong number of parameters in signature for %s: got %d, %s", "accessor", scalar @_, "expected exactly 2 parameters") unless @_ >= 2 and @_ <= 3;
Hydrogen::croak("Type check failed in signature for accessor: %s should be %s", "\$_[0]", "HashRef") unless ref $_[0] eq "HASH";
Hydrogen::croak("Type check failed in signature for accessor: %s should be %s", "\$_[1]", "Str") unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
};
return @_ unless $#_ >= 2;
'???';
@_;
}
|