http://qs321.pair.com?node_id=622531


in reply to Passing parameters to object method references

pass the parameter's to your dispatch
sub subref { my $self = shift; return { order => ['A', 'B'], dispatch => { A => sub { $self->suba(@_) }, B => sub { $self->subb }, } }; }
Boris