http://qs321.pair.com?node_id=588294

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

Hello ther inmates can you point a very confused monk in the right direction please?! I've written a new Perl script that loads 2 of my own in-house written modules -
############################################################### use lib '/home/interface/scripts/Perl_Modules' ; # Where the in-ho +use modules live # # In-House written modules #--------------------------# use ACC_Heather ; use ACC_Various qw(end_it mail mail_log update_report date_validation) + ;
The problem is that the ACC_Heather module uses some of the subroutines contained within ACC_Various. I thought that this would be simple enough - it may well be but I'm probably a lot simpler!! I put a use ACC_Various inside the ACC_Heather module :-
package ACC_Heather ; # our @EXPORT = qw(ACC_IHS_PROFILE run_SQLPLUS ACC_PUT_STEP ACC_GET_STEP + ACC_BOX Update_Job_Status_Log ) ; #our @EXPORT_OK = qw() ; use Exporter ; our @ISA = qw(Exporter) ; # use ACC_Various qw(end_it mail mail_log update_report date_validation) + ;
thinking that if I prefixed every call of an ACC_Various subroutine within ACC_Heather with ACC_Various:: everything would be fine.
if (! -e $SQL_script) { $msg = "SQL script $SQL_script does not exist" ; if (! ACC_Various::&update_report("$logfile","$msg",1,1,0)) { print "\n\tUnable to run Sub update_report :: $!\n" ; } print "\n\t$msg\n" ; print "\t*****************************************\n" ; print "\t* Contact Analyst in Team 1 - Urgently! *\n" ; print "\t*****************************************\n" ; return 0 ; }
Nope!! I got that wrong! The very first call to update report results in the following error :-
Undefined subroutine &ACC_Heather::update_report called at /home/inter +face/scrip ts/Perl_Modules/ACC_Heather.pm line 737.
Am I missing something very obvious or can/should this not be done? See what I mean about confusion! (Okay I admit it I made a typo in a reply!) I've tried all of the following :-

&ACC_Heather::update_report(....)
ACC_Heather::&update_report(....)
&ACC_Various::update_report(....)
ACC_Various::update_report(....)

All resulting in the same error. I use ACC_Various in lots of other scripts but this is the first time I've tried using it within another module. The EXPORT etc of ACC_Various is :-
package ACC_Various ; # our @EXPORT = qw(end_it mail mail_log date_validation ACC_BOX) ; our @EXPORT_OK = qw(run_SQLPLUS update_report error_report) ; use Exporter ; our @ISA = qw(Exporter) ; #
Any other suggestions? I could be really boring and copy all of the subroutines from ACC_Various into ACC_Heather but .... I'd learn nothing. Thanks in advance.

************************************************************ Sorry guys you're dealing with an idiot!!!! Officially! * * When I made the changes to my code I wasn't in the * * directory I thought I was and as a result I was using * * the original failing code all the time!!! * * * * I'd shoot myself but I'd probably MISS!!!!! * ***********************************************************