view release on metacpan or  search on metacpan

inc/Module/Install/Makefile.pm  view on Meta::CPAN

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;
    }
}

sub makemaker_args {
    my $self = shift;

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

    my $cube = λ {$_ * $_ * $_};
    print $cube->(3);           # 27

    # The sub can also access its full argument list through @_
    my $add = lambda {$_[0] + $_[1] } ;

    print $add->(3,4);          # 7

=head1 EXPORT

By default, lambda and λ.

C<use Acme::Lambda();> to avoid exports.

=head1 AUTHOR

Nelson Elhage, C<< <nelhage at mit.edu> >>

=head1 BUGS

Please report any bugs or feature requests to