package curry;
-our $VERSION = '1.000000';
+our $VERSION = '1.001000';
$VERSION = eval $VERSION;
our $curry = sub {
Scalar::Util::weaken($invocant) if Scalar::Util::blessed($invocant);
my @args = @_;
sub {
- return unless $invocant;
+ return unless defined $invocant;
$invocant->$code(@args => @_)
}
};
my ($method) = our $AUTOLOAD =~ /^curry::weak::(.+)$/;
my @args = @_;
return sub {
- return unless $invocant;
+ return unless defined $invocant;
$invocant->$method(@args => @_);
}
}