Next Trivial Utilities 147

attach: type inference

        %type = ('gif' => 'image/gif',
                 ...
                );
        ...
          my $type = $type{lc $suf} || 'application/octet-stream';
          $msg->attach(Type     => $type,
                       Path     => $_);

continued...


Next Menu Copyright © 2012 M. J. Dominus