#!/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 |