Re^2: Passing a data structure via a dynamically-built subroutine call

Here's a more slim-line version

sub call_service {
  croak "Couldn't find handler for $name"
    unless my $c = shift->can(shift);
  goto &$c;
}
[download]

HTH

_________ broquaint

Comment on Re^2: Passing a data structure via a dynamically-built subroutine call Download Code