Died at foo.pl at line 27.
[download]

 else
  {
     $e = Exception::Class->caught();
     ref $e ? $e->rethrow : die $e; 
  }
[download]

Actually, yes, you are wrong. In this case (the file opening example), the exception will be thrown. My guess is that your handling code is wrong. I have never used Exception::Class so I don't know how it is wrong, but my guess is that the if condition is not triggered.


-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."

pete, I've no intention to annoy you, but I'd appreciate it a lot if somebody could help me to find the error. I've updated the code, with your writetofile idea.

#!/usr/bin/env perl

use Exception::Class
      ( 'MyException' );

sub divbyz {
    my $z = 0;
    eval { my $result = ( 23 / $z ) }
        or MyException->throw( error => 'I feel funny.' );
}

sub writeit {
    eval { open my $FH, ">unwritable_file"  }   
        or MyException->throw( error => 'I feel bad.' );
}
  or MyException->throw( error => 'I feel bad.' );

# try
eval { 
        #divbyz();
        writeit();
    };  

# my $e;
# catch
if ( my $e = Exception::Class->caught('MyException') )
{
 warn $e->error, "\n", $e->trace->as_string, "\n";
     exit;
  }
  else
  {
     print "finally \n";
     $e = Exception::Class->caught();
     ref $e ? $e->rethrow : die $e; 
  }
[download]

So if I run this I come to the conclusion, that there is nothing wrong with the handling code. Dependent on which of this two subroutines you run, the flow takes an other conditional.

        divbyz();
        writeit();
[download]


divbyz(): Goes into the first if clause (catch)
writeit(): Goes into the last else clause (finally).
So how can I catch the exception caused by writeit()?
ben

The division by zero will raised it's own exception. So what you can do is either catching the exception using the Exception::Class:Base :

#!/usr/bin/env perl

use Exception::Class;

  # try
  eval {
    (my $result = (23/0));
  };

  # catch
  if ( my $e = Exception::Class->caught() )
  {
    # You can rethrow the exception with your own like MyException her
+e
    die "ERROR: division by zero\n$e\n"
  }
[download]

or test the value before doing the division manually:

#!/usr/bin/env perl

use strict;
use Exception::Class
      ( 'MyException' );

my $number1 = 12;
my $number2 = 0;
my $result;


  # try
  eval {
    if ($number2 == 0) {
        MyException->throw( error => 'I feel funny.' );
    }

    $result = $number1 / $number2;
  };

  # catch

  if ( my $e = Exception::Class->caught('MyException') )
  {
    warn $e->error, "\n", $e->trace->as_string, "\n";
     warn join ' ',  $e->euid,
$e->egid, $e->uid, $e->gid, $e->pid, $e->time;
     exit;
  }
  else
  {
     $e = Exception::Class->caught();
     ref $e ? $e->rethrow : die $e;
  }
[download]

Hope this help.

DISCLAIMER: I still learning perl also. Anybody please correct me if I am wrong. Thanks