# Example of the hash-construct "switch", which is limited and has no "default".
# The output of this code is "abc"

use Moo;

my $val  = 'c';
my @args = qw( abc );
my $obj  = __PACKAGE__->new();

{ a => sub { say 'a' },
  b => \&b,
  c => sub { $obj->c( @_ ) },
}->{ $val }->( @args );


sub b { say 'b' };
sub c { shift; say for @_ };