Re^2: Compare CODE

[tobyink]

in reply to Re: Compare CODE
in thread Compare CODE

The only problem is closed-over variables...

use strict;
use warnings;
use B::Deparse;

sub make_multiplier {
    my $n = shift;
    return sub { $n * $_[0] };
}

my $double = make_multiplier(2);
my $treble = make_multiplier(3);

print "double and treble clearly do different things...\n";
print "double 5: ", $double->(5), "\n";
print "treble 5: ", $treble->(5), "\n\n";

my $deparse = B::Deparse->new;
$deparse->ambient_pragmas(strict => 'all', warnings => 'all');

print "yet, here is the B::Deparse output for double...\n";
print $deparse->coderef2text($double), "\n\n";

print "and here is the B::Deparse output for treble...\n";
print $deparse->coderef2text($treble), "\n";

__END__
double and treble clearly do different things...
double 5: 10
treble 5: 15

yet, here is the B::Deparse output for double...
{
    $n * $_[0];
}

and here is the B::Deparse output for treble...
{
    $n * $_[0];
}