lock a method or functinoality to class & subclass

nmerriweather has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: lock a method or functinoality to class & subclass by merlyn (Sage) on Feb 13, 2007 at 23:43 UTC
Name the method beginning with an initial underscore, which is usually an indication that it's an internal or restriction function. Then, either don't document it, or document it with "for friend classes only". Do not use force. Force doesn't work. If you don't trust other programmers, you shouldn't be programming. -- Randal L. Schwartz, Perl hacker	[reply]
Re:lock a method or functinoality to class & subclass by Cabrion (Friar) on Feb 14, 2007 at 00:12 UTC
I agree with Randal. I think Larry said something about livingrooms and shotguns on this topic. However, you might try something in your method like this: `sub foo { my $self = shift; die "Get out of my class" unless ref($self); # not called as method die "Get out of my class" unless $self->isa('My::Class'); }` [download] Above code for illustrative purposes only. Certaily could be done a lot better/cleaner.	[reply] [d/l]
Re: lock a method or functinoality to class & subclass by pgor (Beadle) on Feb 14, 2007 at 00:14 UTC
You can do it with `die("private method!") unless (caller())[0]->isa(__PACKAGE__);` at the beginning of your private method, but that will add some solid overhead to your code, and I'm sure others will point out how it will break. Just because you can, doesn't mean you should. I recommend you follow merlyn's advice. pg	[reply] [d/l]
Re: lock a method or functinoality to class & subclass by shonorio (Hermit) on Feb 14, 2007 at 02:18 UTC
Maybe Class::Std and Class::Std::Utils would help you. Solli Moreira Honorio Sao Paulo - Brazil	[reply]


go ahead... be a heretic
	PerlMonks