File: too_long.pl

package info (click to toggle)
libemail-address-perl 1.908-1%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 380 kB
  • sloc: perl: 468; makefile: 7
file content (4 lines) | stat: -rw-r--r-- 143 bytes parent folder | download | duplicates (8) 
1
2
3
4
 
use Email::Address;
$value = q{first@foo.org,} . q{ } x 26 . q{second@foo.org};
use Data::Dumper;
print Dumper(Email::Address->parse($value));