[p5sagit/p5-mst-13.2.git] / cpan / autodie / t / lib / pujHa / ghach.pm

package pujHa'ghach;

# Translator notes: reH Hegh is Kligon for "always dying".
# It was the original name for this testing pragma, but
# it lacked an apostrophe, which better shows how Perl is
# useful in Klingon naming schemes.

# The new name is pujHa'ghach is "thing which is not weak".
#   puj   -> be weak (verb)
#   -Ha'  -> not
#   ghach -> normalise -Ha' verb into noun.
#
# I'm not use if -wI' should be used here.  pujwI' is "thing which
# is weak".  One could conceivably use "pujHa'wI'" for "thing which
# is not weak".

use strict;
use warnings;

use base qw(autodie);

sub exception_class {
    return "pujHa'ghach::Dotlh";      # Dotlh - status
}

1;
Commit	Line	Data
0b09a93a	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;