Ovid schrieb am 25.11.2011 um 23:58 (-0800):
> Rename TB2::Mouse to something like TB2::_U_R_A_MORON_FOR_USING_THIS_
> and I think the problem will take care of itself.
Or what about an addition to TB2::Mouse's import routine?
sub import {
# prevent unauthorised use
my $calling_pkg = (caller)[0];
croak __PACKAGE__ . ' is for internal use only'
unless $calling_pkg =~ m/^(:?Test|TB2)::/;
# or some other suitable usage policy check
...
Wouldn't that practically solve the hypothetical problem?
--
Michael Ludwig
