use strict;
use warnings;
use feature 'say';

BEGIN {
	package Local::Farm;
	sub new {
		my ( $class ) = ( shift );
		bless {}, $class;
	}
	sub cow_say {
		say "Moo";
	}
	sub sheep_say {
		say "Baa";
	}
	sub horse_say {
		say "Neigh";
	}
};

BEGIN {
	package Local::Random::String;
	use overload q[""] => 'to_string', fallback => 1;
	sub new {
		my ( $class, @options ) = ( shift, @_ );
		bless \@options, $class;
	}
	sub to_string {
		my ( $self ) = ( shift );
		my $ix = rand @$self;
		$self->[$ix];
	}
};

my $object = 'Local::Farm'->new();
my $method = 'Local::Random::String'->new( qw/ cow_say sheep_say / );

$object->$method for 1 .. 10;