File: too_long.pl

package info (click to toggle)
libemail-address-perl 1.913-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 344 kB
  • sloc: perl: 383; 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));