view release on metacpan or  search on metacpan

lib/Sub/Curry.pm  view on Meta::CPAN

                # No spice. Just do a regular pass-along.
                push @str, '@_';
            }
        }

        my $code_str = "sub { \$cb->(@{[join ', ', @str]}) }";
        my $self = eval $code_str or die;

        #return $self if $nobless;

        bless $self => $class;

        _code_str($self => $code_str);
        _real_spice($self => $spice);
        $self->uncurried($cb);

        return $self;
    }
    else {
        my $self = shift;