Help for this page

Select Code to Download


  1. or download this
    =pod

package Canine;
package Dog;
my Canine $spot : Watchful ;
  2. or download this
    use attributes ();
attributes::->import(Canine => \$spot, "Watchful");

=cut
  3. or download this
    use warnings;
use strict;
...
    print "Woof!\n";
    ();
}
  4. or download this
    package main;

...

my $izzie = ref $spot;
print $izzie? "$izzie Spot is @{[keys %$spot]}": "No Spot", $/;
  5. or download this
    my Dog $rover;