#! /usr/bin/perl

use warnings;
use strict;

package X;
use Carp;

use overload ( qq{""} => sub { return $_[0]->{description}; } );

sub new {
    my ( $class, $description ) = @_;
    $description = "Exception of type $class occurred" unless $description;

    #no strict "refs";
    #dprint "mutts under class" if ( 1 < @{"$class\::ISA"} );
    #dprint "directly instantiated" if $class eq __PACKAGE__;

    bless { description => $description . Carp::longmess() }, $class;
}

sub caught {
    my $class = shift;
    return $class if ( $class eq ref $@ );
    return;
}


package Eperm;
use base "X";


package main;

sub fail { die Eperm->new() }

fail();