t/lib/autodie/lib/pujHa/ghach.pm

   1 package 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
  17 use strict;
  18 use warnings;
  19
  20 use base qw(autodie);
  21
  22 sub exception_class {
  23     return "pujHa'ghach::Dotlh";      # Dotlh - status
  24 }
  25
  26 1;