in reply to Abstract Packages
Any particular reason you disallow both "Processor" and "Processor\n" as package names? I'd have been inclined to use an nice simple string compare instead of a regexp:
... if $class eq 'Processor';
For more generality, I'd take advantage of the builtin symbol to make the same check work everywhere:
... if $class eq __PACKAGE__;
(And, for the record, I have no problem with ref($this) || $this.)
Hugo
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Abstract Packages
by Ovid (Cardinal) on Aug 04, 2004 at 16:55 UTC | |
|
Re^2: Abstract Packages
by Velaki (Chaplain) on Aug 05, 2004 at 11:43 UTC |