Help for this page

Select Code to Download


  1. or download this
    # file Useless/Nothing.pm
1;
  2. or download this
    qwurx [shmem] ~> perl -E '$foo = bless {}, "CORE"; $foo->bless("blorf"
+); say $foo'
blorf=HASH(0x1e53e78)
...
Can't locate object method "bless" via package "blorf" at -e line 1.
qwurx [shmem] ~> perl -e '$foo = {}; $foo->bless("blorf"); say $foo'
Can't call method "bless" on unblessed reference at -e line 1.
  3. or download this
    package Whatever;

...
    my ($object, $class) = @_;
    return bless $object, $class;
}