in reply to Re^4: Can't call method "otherwise" without a package or object reference at
in thread Can't call method "otherwise" without a package or object reference at

It looks like you're missing a semicolon between the otherwise block and the die. It should be:

try {
     my ($k) = 2;
     throw sysAssert("test assert");
  } catch err with {
    my ($ex) = @_;
    print "caught by with\n";
    dPrt("warn"," with $ex");
  } otherwise {
    my ($ex) = @_;
    print "caught by otherwise \n";
    dPrt("warn","OTHERWISE:$ex");
  };
  die "got here";

[download]
  • Comment on Re^5: Can't call method "otherwise" without a package or object reference at
  • Download Code

Replies are listed 'Best First'.
Re^6: Can't call method "otherwise" without a package or object reference at
by rpelak (Sexton) on Oct 06, 2010 at 15:25 UTC
    Whoops. yep. Had that in all the others, missed it on this one. But adding it didn't change the result.
[reply]
      What do you get from perl -MO=Deparse,-p script.pl for the offending chunk?
[reply]
[d/l]
        I'll admit I haven't run the deparse before... so I can't read it very well (at least for this try catch stuff... But For the code that was added simply to prove that otherwise is defined. 
        do {
        (my($k) = 2);
        'sysAssert'->throw('test assert')
    }->try('err'->catch(do {
        (my($ex) = @_);
        print("caught by with\n");
        dPrt('warn', " with $ex")
    }->with(do {
        (my($ex) = @_);
        print("caught by otherwise \n");
        dPrt('warn', "OTHERWISE:$ex")
    }->otherwise)));

        [download]
        For the original offending code that generates the error about can't call method "otherwise"... that I am trying to fix... 
        if (($pbOnDStarMachine == 1)) {
        (my($sComm) = "sudo dchown nhmgenda '$$this{'sFullPath'}'");
        do {
            libs::exec("$sComm")
        }->try('err'->catch(do {
            (my($ex) = @_);
            dPrt('warn', "$ex")
        }->with(do {
            (my($ex) = @_);
            dPrt('warn', "OTHERWISE:$ex")
        }->otherwise)));
        return('');
    }

        [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom