Lines Matching defs:exception_class

1487 sub exception_class { return "autodie::exception" };
1497         my $exception_class =
1498              $exception_class_for{$class} ||= $class->exception_class;
1500         if (not $class_loaded{$exception_class}) {
1501             if ($exception_class =~ /[^\w:']/) {
1502                 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.";
1513                 my $pm_file = $exception_class . ".pm";
1523             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;
1525             $class_loaded{$exception_class}++;
1529         return $exception_class->new(@args);
1870 =for Pod::Coverage exception_class fill_protos one_invocation throw write_invocation ERROR_NO_IPC_SYS_SIMPLE LEXICAL_TAG