Acme::Fatal - Replace statements with equivalents which succeed or die

Acme-Fatal documentation Contained in the Acme-Fatal distribution.

Index

Code Index:

NAME

Top

Acme::Fatal - Replace statements with equivalents which succeed or die

SYNOPSIS

Top

  use Acme::Fatal;

DESCRIPTION

Top

autodie detects failure in I/O operations and operations that result in system calls which may fail, and automatically raises an alarm.

Acme::Fatal takes this a step further and detects false result status of individual statements.

SEE ALSO

Top

autodie. Fatal. Acme::Code::Police.

AUTHOR

Top

Scott Walters, <scott@slowass.net>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2009 by Scott Walters

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.9 or, at your option, any later version of Perl 5 you may have available.

Acme-Fatal documentation Contained in the Acme-Fatal distribution. 
package Acme::Fatal;

use strict;
use warnings;

our $VERSION = '0.01';

use Filter::Util::Call;

sub import {
    my($type, @arguments) = @_;

    filter_add( sub {
            my $ret = filter_read();
            s/;(\s*#?.*)$/ or die;$1/g;
            $ret;
    } );
}

1;

__END__