objtest


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!./perl

package OBJ;

@ISA = BASEOBJ;

$main'object = bless {FOO => foo, BAR => bar};

package main;

$object->mymethod("BAR");

mymethod $object "FOO";

#&mymethod($object, "BAR");

sub BASEOBJ'mymethod {
    local $ref = shift;
    print ref $ref, "\n";
    print $ref->{shift}, "\n";
}