- or download this
package Logndebug;
use strict;
...
}
1;
- or download this
package SillyVec3D;
use strict;
...
}
1;
- or download this
#! perl -slw
use strict;
...
print $o->X, $o->Y, $o->Z;
- or download this
C:\test>t-SillyVec3D
123
...
Y called with [SillyVec3D=HASH(0x8cf48)]
Z called with [SillyVec3D=HASH(0x8cf48)]
456