ACME::Error::SHOUT - ACME::Error Backend to Scream Errors

ACME-Error documentation

Contained in the ACME-Error distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
AUTHOR
COPYRIGHT
SEE ALSO

Code Index:

package ACME::Error::SHOUT
__END__
EOF

NAME

ACME::Error::SHOUT - ACME::Error Backend to Scream Errors

SYNOPSIS

  use ACME::Error SHOUT;

DESCRIPTION

This backend converts your errors to screams.

AUTHOR

Casey West <casey@geeknest.com>

COPYRIGHT

Copyright (c) 2002 Casey R. West <casey@geeknest.com>. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

perl(1).

ACME-Error documentation

Contained in the ACME-Error distribution.

package ACME::Error::SHOUT;

use strict;
no  strict 'refs';

use vars qw[$VERSION];
$VERSION = '0.02';

*warn_handler = *die_handler = sub {
  my @error = @_;
  $error[$_] =~ s/.$/!/g for 0 .. $#error;
  return map uc, @error;
};

1;
__END__
# Below is stub documentation for your module. You better edit it!