File Coverage

blib/lib/Regexp/Profanity/US.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	29	32	90.6

package Regexp::Profanity::US;
BEGIN {
  $Regexp::Profanity::US::VERSION = '4.112150';
}


use strict;
use warnings;
use Carp qw(croak confess);

use Regexp::Common qw/profanity_us/;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(profane profane_list);


my $RE = $RE{profanity}{us}{normal}{label}{-keep};

sub profane {
  my $word   = shift or confess 'must supply word to match';
  ( $word =~ /$RE/i )[0] || '0';
}

sub profane_list {
  my $word   = shift or confess 'must supply word to match';
  ( $word =~ /$RE/ig )
}

1;

__END__