1package pujHa'ghach;
2
3# Translator notes: reH Hegh is Kligon for "always dying".
4# It was the original name for this testing pragma, but
5# it lacked an apostrophe, which better shows how Perl is
6# useful in Klingon naming schemes.
7
8# The new name is pujHa'ghach is "thing which is not weak".
9#   puj   -> be weak (verb)
10#   -Ha'  -> not
11#   ghach -> normalise -Ha' verb into noun.
12#
13# I'm not use if -wI' should be used here.  pujwI' is "thing which
14# is weak".  One could conceivably use "pujHa'wI'" for "thing which
15# is not weak".
16
17use strict;
18use warnings;
19
20use parent qw(autodie);
21
22sub exception_class {
23    return "pujHa'ghach::Dotlh";      # Dotlh - status
24}
25
261;
27