Help for this page

Select Code to Download


  1. or download this
    package Slave;
my $type;
...
Slave::type("FOO");
print Slave::type . "\n";
Slave::tpye("BAR"); # dies
  2. or download this
    package Slave;
my $type;
...
Slave::type = "FOO";
print Slave::type . "\n";
Slave::tpye = "BAR"; # dies