http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/Eml.pm
$1 : " \n " ; bless { hdr => \ $hdr , crlf => $eol , bdy => $ref }, __PACKAGE__ ; } } sub new_sub { my ( undef , $ref ) = @_ ; # special case for messages like <
[email protected]> $ $ref =~ /\A(\r?\n)/
s or return new ( undef , $ref ); my $hdr = substr ($ $ref , 0 , $+[ 0 ], '' ); # sv_chop on $$ref bless { hdr => \ $hdr , crlf => $1 , bdy => $ref }, __PACKAGE__ ; } # same output as Email::Simple::Header::header_raw, but we extract # headers on-demand instead of parsing them...