File Coverage

blib/lib/Email/Address/UseXS.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	15	15	100.0

package Email::Address::UseXS;

use strict;
use warnings;

our $VERSION = '1.000';

=head1 NAME

Email::Address::UseXS - ensure that any code uses L instead of L

=head1 DESCRIPTION

To use, simply add C in your code before
anything that tries to load in L.

    use Email::Address::UseXS;
    print Email::Address->parse('[e-mail]');

=head1 WHY?

L is dangerous, badly-formed input can cause very slow regex expressions (taking minutes or more to run).
See L for details.

=cut

BEGIN {
    die 'Must load ' . __PACKAGE__ . ' before Email::Address'
        if Email::Address->can('parse');

    require Email::Address::XS;

    @Email::Address::ISA = 'Email::Address::XS';
    $INC{'Email/Address.pm'} = 1;
}

1;

__END__