|
85
|
2 |
1 |
$__signature ||= sub {
my(%tmp, $tmp);
Hydrogen::croak("Wrong number of parameters in signature for %s: got %d, %s", "dec", scalar @_, "expected exactly 1 parameters") unless @_ >= 1 and @_ <= 2;
Hydrogen::croak("Type check failed in signature for dec: %s should be %s", "\$_[0]", "Int") unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
};
return @_ unless $#_ >= 1;
Hydrogen::croak("Type check failed in signature for dec: %s should be %s", "\$_[1]", "Optional[Int]") unless do {
my $tmp = $_[1];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
};
@_;
}
|
|
159
|
2 |
1 |
$__signature ||= sub {
my(%tmp, $tmp);
Hydrogen::croak("Wrong number of parameters in signature for %s: got %d, %s", "inc", scalar @_, "expected exactly 1 parameters") unless @_ >= 1 and @_ <= 2;
Hydrogen::croak("Type check failed in signature for inc: %s should be %s", "\$_[0]", "Int") unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
};
return @_ unless $#_ >= 1;
Hydrogen::croak("Type check failed in signature for inc: %s should be %s", "\$_[1]", "Optional[Int]") unless do {
my $tmp = $_[1];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
};
@_;
}
|