|
I’ve got a script that looks like
#!perl
use LIB::DLOG;
my $dlog = new DLOG('TYPEA','FILENAME');
$dlog->read;
exit;
I’ve got a package DLOG which looks like:
package DLOG.pm
use LIB::DATALOG_PARSERS::TYPEA; # contains TYPEALOG package use LIB::DATALOG_PARSERS::TYPEB; # contains TYPEBLOG package use LIB::DATALOG_PARSERS::TYPEC; # contains TYPECLOG package
sub new { my $class = shift; my $platform = shift; my $file = shift;
if ($platform eq 'TYPEA') { @ISA = ("TYPEA"); } elsif ($platform eq 'TYPEB') { @ISA = ("TYPEB"); } elsif ($platform eq 'TYPEC') { @ISA = ("TYPEC"); }
my $self = {};
bless $self,$class;
return $self; }
the read method that gets invoked is not present in the dlog module, but should be inherited from TYPEA.pm, etc. however perl is telling me that it can't find it. any idea why?
script called from pwd. DLOG.pm in pwd/LIB/ TYPEA.pm, etc in pwd/LIB/DATALOG_PARSERS/
Is there an issue with having the package name not equal to the module file name??
-brian
Brian Lasher Catalog DSP Product Engineering Best Practices and Yield Enhancement Team [EMAIL PROTECTED] 281-274-2913(W) 281-684-4699(C) 713-664-6240(H) 281-274-2279(F)
|
_______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
