Re: Creating dispatch table with variable in function name


Welcome to the Monastery
	PerlMonks

Re: Creating dispatch table with variable in function name

by Mr. Muskrat (Canon)

on Nov 21, 2017 at 19:41 UTC ( [id://1203942]=note: print w/replies, xml )

Need Help??

in reply to Creating dispatch table with variable in function name

It works for me.

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

my %dispatch = map { $_, \&{'_create_' . $_} } qw(first last);

sub _create_first { print "first!\n"; }
sub _create_last { print "last!\n"; }

$dispatch{first}->();
$dispatch{last}->();

__DATA__
first!
last!
[download]

Update: Do you have a subroutine called _create_create_password?