package curry;
-our $VERSION = '1.0';
+our $VERSION = '1.000000';
$VERSION = eval $VERSION;
sub AUTOLOAD {
sub AUTOLOAD {
my $invocant = shift;
Scalar::Util::weaken($invocant) if Scalar::Util::blessed($invocant);
- my ($method) = our $AUTOLOAD =~ /^curry::(.+)$/;
+ my ($method) = our $AUTOLOAD =~ /^curry::weak::(.+)$/;
my @args = @_;
return sub {
return unless $invocant;
=head1 COPYRIGHT
-Copyright (c) 2012 the Import::Into L</AUTHOR> and L</CONTRIBUTORS>
+Copyright (c) 2012 the curry L</AUTHOR> and L</CONTRIBUTORS>
as listed above.
=head1 LICENSE