1 package pujHa'ghach::Dotlh;
3 # Translator notes: Dotlh = status
5 # Ideally this should be le'wI' - Thing that is exceptional. ;)
6 # Unfortunately that results in a file called .pm, which may cause
7 # problems on some filesystems.
12 use base qw(autodie::exception);
17 my $error = $this->SUPER::stringify;
19 return "QaghHommeyHeylIjmo':\n" . # Due to your apparent minor errors
30 # The following was a really neat idea, but currently autodie
31 # always pushes values in $! to format them, which loses the
32 # Klingon translation.
35 use Scalar::Util qw(dualvar);
37 my %translation_for = (
38 EPERM() => q{Dachaw'be'}, # You do not have permission
39 ENOENT() => q{De' vItu'laHbe'}, # I cannot find this information.
45 my $errno = int $this->SUPER::errno;
47 warn "In tlhIngan errno - $errno\n";
49 if ( my $tlhIngan = $translation_for{ $errno } ) {
50 return dualvar( $errno, $tlhIngan );