Re: how to let sub return hash of 2 sub?

To create a code or subroutine reference, just use sub without a name:

my $x = sub { print shift };
[download]

To call such a subroutine, use the ->() dereference:

$x->('Hello world!');
[download]

It's a bit unclear what exactly you need. The following sub returns a hash of two subs:

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

sub two_subs {
    return { first  => sub { return 'First: '  . shift },
             second => sub { return 'Second: ' . shift },
           }
}

print two_subs()->{first}->('A'), ' ', two_subs()->{second}->('B'), "\
+n";
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: how to let sub return hash of 2 sub? Select or Download Code

Replies are listed 'Best First'.
Re^2: how to let sub return hash of 2 sub? by Anonymous Monk on May 27, 2015 at 15:20 UTC
... and if OP wants to use already existing sub, use its reference ... `... sub two_subs { ... return { 'first' => \&ElseWhere::first , 'second' => \&ElseWhere::second } ; } # In ElseWhere ... sub first { 'first(): ' . shift } sub second { 'second(): ' . shift } ...` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: how to let sub return hash of 2 sub?
by Anonymous Monk on May 27, 2015 at 15:20 UTC

... and if OP wants to use already existing sub, use its reference ...

...

sub two_subs
{
  ...

  return
    { 'first'  => \&ElseWhere::first
    , 'second' => \&ElseWhere::second
    } ;
}


#  In ElseWhere
...
sub first  { 'first(): '  . shift  }
sub second { 'second(): ' . shift  }
...
[download]

[reply]
[d/l]