in reply to Re: Return value from code reference stored in dispatch table
in thread Return value from code reference stored in dispatch table

Ok, you want some context... (following are snippets... actual code is very long)

use constant RTN_EXIT => 0;
use constant RTN_CONTINUE => 1;
use constant RTN_ERROR => 2;

# ActionSubs hash ommitted for brevity..  (it contains over 40 entries
+)

%ActionSubsM = (
    'emailagenda' => \&emailagenda,
    'defaultagenda' => \&defaultagenda,
    'createnewdefaultagenda' => \&createnewdefaultagenda,
    'deleteagenda' => \&deleteagenda
);

# Parsing code ommitted for brevity... (loads %FORM hash)

if (%FORM) {     #Are there any entries in the %FORM hash from the par
+ser?
  $FormCmd=$FORM{'action'}

# Determine if the relevant commands are listed in any of the dispatch
+ hash tables, and if so, run the referenced subroutine with the appro
+priate arguments....

  $CmdFound=-1;                                                       
+             $RtnVal=RTN_EXIT;                                       
+                                             #By default, all command
+s exit

  if (exists $ActionSubs{ $FormCmd } ) {                              
+                                          #Found in %ActionSubs hash?
    $CmdFound = 1;                                        
    #Run the subroutine from %ActionSubs corresponding to string argum
+ent in $FORM{'action'}...
    $ActionSubs{ $FormCmd }->();  #HOW TO RETURN A VALUE HERE???  DOES
+ NOT WORK!
    unless ( $RtnVal == RTN_CONTINUE ) { exit; }
  }
  elsif ( ( exists $ActionSubsM{ $FormCmd } ) && $FORM{'meetingid'}) {
+                #Found in %ActionSubsM hash?
    $CmdFound = 1;
    #Run the subroutine from %ActionSubsE corresponding to string argu
+ment in $FORM{'action'} with argument supplied by $FORM{'meetingid'}.
+..
    $ActionSubsM{ $FormCmd }->( $FORM{'meetingid'} ); #HOW TO RETURN A
+ VALUE HERE???  DOES NOT WORK!
    unless ( $RtnVal == RTN_CONTINUE ) { exit; }
  }

# etc.  2 other hash dispatch tables looked at.

}

[download]

Sorry if you need more, but it is just too long to post the whole thing here. Hope this is enough.

Basically, I cannot seem to get the following kind of thing to work:

$RtnVal=$DispatchedSub($MyKey)->();

The subroutine referenced by hypothetical "$DispatchedSub($MyKey)" is intended to return a constant telling the main routine whether it should exit or continue on and serve up the webpage. Trying to get the exits out of the subroutines.

I tried the following, but it did not work either:

$RtnVal=( $DispatchedSub($MyKey)->() );

I do not have to do the explicit setting of $RtnVal (since it is set in the subs)... I just prefer explicit code for code clarity.

Replies are listed 'Best First'.
Re^3: Return value from code reference stored in dispatch table
by AnomalousMonk (Archbishop) on Sep 03, 2013 at 06:59 UTC
    I do not have to do the explicit setting of $RtnVal (since it is set in the subs)...     [emphasis added]

    This implies that  $RtnVal is a global. Along with hdb, I'm handicapped by not having an example of the referenced code, e.g., emailagenda(), but are you aware that a subroutine, named or otherwise, that does not have an explicit return statement implicitly returns the value of the last expression evaluated within the subroutine? A situation something like the one described in the OP can be imagined via this scenario: 

    >perl -wMstrict -le
"our $RtnVal;
 our $SomeOtherGlobal;
 ;;
 my $coderef = sub {
   $RtnVal = $_[0];
   if ($RtnVal eq 'Ok') { $SomeOtherGlobal = 'Foo'; }
   };
 ;;
 for my $arg (qw(Ok NotOk)) {
   $RtnVal = $coderef->($arg);
   print qq{RtnVal '$RtnVal'};
   }
 ;;
 for my $arg (qw(Ok NotOk)) {
   $coderef->($arg);
   print qq{RtnVal '$RtnVal'};
   }
"
RtnVal 'Foo'
RtnVal ''
RtnVal 'Ok'
RtnVal 'NotOk'

    [download]
[reply]
[d/l]
[select]
Re^3: Return value from code reference stored in dispatch table
by hdb (Monsignor) on Sep 03, 2013 at 05:58 UTC

    Admittedly, I am non the wiser now. Would it be possible to also show some of the code of the dispatch functions? Ideally, something like the following skeleton should help to isolate the problem: (depending on how much effort it is to strip it down like this) 

    use strict;
use warnings;

sub emailagenda {
        # full definition here
        ...
}

%ActionSubsM = (
    'emailagenda' => \&emailagenda,
);

my $RtnVal = $ActionSubsM{ 'emailagenda' }->( 'meetingid1' );

print "|$RtnVal|\n";

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom