Select Code to Download

use warnings;
use strict;
...
sub create_first {
    print "first!\n";
}

$VAR1 = {
          'first' => sub { "DUMMY" }
        };
first!

$dispatch{_create_first}->();

use warnings;
use strict;
...
sub create_first {
    print "first!\n";
}

$VAR1 = {
          'create_first' => sub { "DUMMY" }
        };
first!