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