Help for this page

Select Code to Download


  1. or download this
    use threads;
use threads::shared;
my $var : shared;
  2. or download this
    use Me;
my $user : Me;
$user = "Random"; # this is OK
$user = "Deterministic"; # croaks
  3. or download this
    #!/usr/bin/perl
use strict;
...

sub str {"Not telling you"};
1;
  4. or download this
    > perl -Mlib=. -MMe -le'my $m = new Me (Random);print $m'
Not telling you
...
# But I can not suss out how to get his to work
> perl -Mlib=. -MMe -le'my $m : Me; $m = "Random"; print $m'
Invalid SCALAR attribute: Me at -e line 1