Select Code to Download

use B;
sub LogMe{
...
        B->new;
        B->_func2;
};

package commonRoutine;

...
}

1

use A;
use commonRoutine;
...
    A->new;    
    commonRoutine->new;
}

package A;
use strict;
...
}

1

package B

...
}

1