[baltimorepm] Closures and Late-Binding Subroutine Calls

[Bernie Simon]

Here's an example of what I was getting at. Code modified to work with my
old version of Perl

#!/usr/bin/env perl
use strict;

my $obj = PackageA->new();
my $code = PackageB::configure($obj);
&$code;

package PackageA;
sub new {
    my ($class) = @_;
    # old style objects, avert your eyes!
    my $self = {};
    return bless($self, $class);
}
sub hello {
    print "hello, world\n";
}


package PackageB;
sub configure {
    my ($obj) = @_;
    my $coderef = sub {
        $obj->hello;
    };

    return $coderef;
}