Lines Matching refs:exception_class
1461 sub exception_class { return "autodie::exception" };
1471 my $exception_class =
1472 $exception_class_for{$class} ||= $class->exception_class;
1474 if (not $class_loaded{$exception_class}) {
1475 if ($exception_class =~ /[^\w:']/) {
1476 confess "Bad exception class '$exception_class'.\nThe '$class->exception_class' method wants to use $exception_class\nfor exceptions, but it contains characters which are not word-characters or colons.";
1487 my $pm_file = $exception_class . ".pm";
1497 confess "Failed to load '$exception_class'.\nThis may be a typo in the '$class->exception_class' method,\nor the '$exception_class' module may not exist.\n\n $E" if $E;
1499 $class_loaded{$exception_class}++;
1503 return $exception_class->new(@args);
1844 =for Pod::Coverage exception_class fill_protos one_invocation throw write_invocation ERROR_NO_IPC_SYS_SIMPLE LEXICAL_TAG