Select Code to Download

=pod

package Canine;
package Dog;
my Canine $spot : Watchful ;

use attributes ();
attributes::->import(Canine => \$spot, "Watchful");

=cut

use warnings;
use strict;
...
    print "Woof!\n";
    ();
}

package main;

...

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

my Dog $rover;