File Coverage

blib/lib/Acme/Rant.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

package Acme::Rant;
use strict;
$^W = 1;

use vars qw[$VERSION @EXPORT $PUNC $CURSE $VOID $RANT];
$VERSION = (qw$Revision: 0.1$)[1];
@EXPORT  = qw[vent];
$PUNC    = quotemeta q[!@#\$%^&*_?];
$CURSE   = qr/
              (?:
                 (?:
                    (?:what|why|who|where|when|how)
                    \s+
                 )?
                 the\s+)?      # possible prefix
                 [$PUNC]{3,}   # frustrated cursing
                 (?:-[\w]+)?   # possible suffix
                 (?:\s*,)?     # possible comma
             /xi;
$VOID    = qr/
              (?:my|our|use|sub|local)[\s(]+$ # keywords
             /x;
$RANT    = '';

use base qw[Exporter];

use Filter::Simple sub {
    s/RANT/\$Acme::Rant::RANT = q/;
    s<$CURSE>
     <$` =~ /$VOID/ ? '' : 'vent'>ge;
};

sub vent {
    my ($data) = @_;

    return defined($data) || 1;
}

1;

__END__