[Israel.pm] OO in perl question

[Itamar Elem]

hi

i have the following situation:
packages D1,..,Dk which derived from package B in perl
and var $a in each of the packages D1,..Dk, B

and lets say single accessor name get_a defined in B only;

is there clean way which get_a return the correct $a;

for example:

$c = new D2();

print $c->get_a()

will print the content of $a from D2;
is there different sollution if $a is my var or global package var

thanks itamar