File Coverage

blib/lib/Email/Address/Loose.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	6	66.6
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	44	46	95.6

package Email::Address::Loose;
use strict;
use warnings;
our $VERSION = '0.10';

use base 'Email::Address::Loose::EmailAddress';

sub import {
    my ($class, @args) = @_;
    if (grep { $_ eq '-override' } @args) {
        $class->globally_override;
    }
}

my $Email_Address_parse;

sub globally_override {
    my $class = shift;

    no warnings 'redefine';
    unless ($Email_Address_parse) {
        $Email_Address_parse = \&Email::Address::parse;
        *Email::Address::parse = \&Email::Address::Loose::EmailAddress::parse;
    }

    1;
}

sub globally_unoverride {
    my $class = shift;

    no warnings 'redefine';
    if ($Email_Address_parse) {
        *Email::Address::parse = $Email_Address_parse;
        undef $Email_Address_parse;

        Email::Address->purge_cache;
    }

    1;
}

1;
__END__