view release on metacpan or  search on metacpan

lib/Regexp/Common/Email/Address.pm  view on Meta::CPAN

package Regexp::Common::Email::Address;
# $Id: Address.pm,v 1.1 2005/01/06 16:10:10 cwest Exp $
use strict;

use vars qw[$VERSION];
$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];

use Regexp::Common qw[pattern];
use Email::Address;

pattern name   => [qw[Email Address]],
        create => qq[(?k:$Email::Address::mailbox)];

1;

__END__