Sub::Operable Example

subop.pl

use strict;
use warnings;
use feature 'say';
use List::Util 'shuffle';
use Sub::Operable 'subop';

*greetings = subop {
  my @greetings = shuffle(
    'Greetings',
    'Hello',
    'Good Morning',
  );
  return $greetings[0];
};

say greetings();
say greetings();
say "--";

*place = subop {
  my @places = shuffle(
    'Earth',
    'World',
    'Vietnam',
  );
  return $places[0];
};

say place();
say place();
say "--";

#
# We're concatentating two coderefs and a string?!??!
#

*greet_place = \&greetings . " " . \&place;

say greet_place();
say greet_place();