view release on metacpan or  search on metacpan

lib/Acme/Lambda.pm  view on Meta::CPAN

use 5.008;
use warnings;
use strict;
use utf8;

use base qw(Exporter);

our @EXPORT = qw(lambda λ);
our @EXPORT_OK = @EXPORT;

sub lambda(&) {
    my $sub = shift;
    return sub {local $_ = $_[0]; $sub->(@_)};
}

*λ = \λ

=encoding utf8

=head1 NAME