package Test1;

use base 'Example1';

## overrided method
sub getObjectId {
    my $self = shift;
    my $arg = shift;
    return Other::Package::lookupId($arg);
}

1;

package Test2;

use base 'Example2';

## overrided method
sub getObjectId {
    my $self = shift;
    my $arg = shift;
    return Other::Package::lookupId($arg);
}

1;

package Test3;

use base 'Example2';

## overrided method
sub getObjectId {
    my $self = shift;
    my $arg = shift;
    return Other::Package::lookupId($arg);
}

1;