Re: Passing parameters to object method references

[citromatik]

Two comments:

Data::Dumper may not be the best way to Dump closures, I find Data::Dump::Streamer a lot more useful:

foo.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump::Streamer; ##!!

use Foo;

my $help   = 'Please display this message';
my $foo    = Foo->new;
my $subref = $foo->subref;

foreach my $pos (@{$subref->{order}}){
  my $sub = $subref->{dispatch}->{$pos};
  Dump ($sub);  ###!!
}

Outputs:

my ($self);
$self = bless( {}, 'Foo' );
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           $self->suba;
         };

my ($self);
$self = bless( {}, 'Foo' );
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           $self->subb;
         };

This seems clearer to me than the output you got from Data::Dumper. And maybe you would catch the error that rhesa points out.

And since you already broke the encapsulation of your object, why don't you return the plain function instead of a method?:

package Foo;
use strict; use warnings;

sub new { bless {}, shift; }
 
sub suba 
{ 
#  my $self  = shift;
  my $param = shift || '';
  print "Message is: $param\n";
}

sub subb { return; }

sub subref
{
  my $self = shift;
  return {
    order => ['A', 'B'],
    dispatch => {
      A => \&suba, ##!
      B => \&subb, ##!
    }
  };
}

1;

Outputs (as expected)

POS: A
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           my $param = shift @_ || '';
           print "Message is: $param\n";
         };
Message is: Please display this message
POS: B
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           return;
         };

citromatik