Email-Address
view release on metacpan or search on metacpan
323334353637383940414243444546474849505152{
my
(
@addr
) = Email::Address->parse(
$utf_8
);
is(
@addr
, 0,
"utf-8 octet address: not ok"
);
# ok( $utf_8 !~ $Email::Address::addr_spec, "...it !~ addr_spec");
}
{
my
(
@addr
) = Email::Address->parse(
$text
);
is(
@addr
, 0,
"unicode (decoded) address: not ok"
);
# ok( $text =~ $Email::Address::addr_spec, "...it !~ addr_spec");
}
{
my
@addr
= Email::Address->parse(
qq{
"Not ascii phras\x{e9}
" <good\
>,
b\x{e3}d\
@user
,
bad\
@d
\x{f6}main,
not.bad\
@again
( run in 0.434 second using v1.01-cache-2.11-cpan-8d75d55dd25 )