Update description for is_emailaddress() method in POD

sisimai · Jan 15, 2015 · 23df3ed · 23df3ed
1 parent 2bb7779
commit 23df3ed
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/Sisimai/RFC5322.pm b/lib/Sisimai/RFC5322.pm
@@ -180,7 +180,14 @@ C<is_emailaddress()> checks the argument is valid email address or not.
 
     print Sisimai::RFC5322->is_emailaddress( 'neko@example.jp' );  # 1
     print Sisimai::RFC5322->is_emailaddress( 'neko%example.jp' );  # 0
-    print Sisimai::RFC5322->is_emailaddress( 'Stray cat <neko@example.jp>' ); # 1
+
+    my $addr_with_name = [ 
+        'Stray cat <neko@example.jp',
+        '=?UTF-8?B?55m954yr?= <shironeko@example.co.jp>',
+    ];
+    for my $e ( @$addr_with_name ) {
+        print Sisimai::RFC5322->is_emailaddress( $e ); # 1
+    }
 
 =head2 C<B<is_domainpart( I<Domain> )>>