package main;

my Dog $spot :Watchful Muddy;

my $izzie = ref $spot;
print $izzie? "$izzie Spot is @{[keys %$spot]}": "No Spot", $/;