File Coverage

blib/lib/Acme/Fatal.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

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__