Select Code to Download

package My;
use fields qw(bar);
...
    return fields::new(shift)
}
1;

package Foo;
use fields qw(foo);
...
    return fields::new(shift)
}
1;

#!/usr/bin/perl

...
(2) bar: Foo=ARRAY(0x827ab44), bar field = is bar
(3) foo: Foo=ARRAY(0x827ab44), foo field = is bar
No such pseudo-hash field "bar" at my.pl line 25.