view release on metacpan or  search on metacpan

lib/Convert/BulkDecoder.pm  view on Meta::CPAN

	      == int(length() / 4);
	    # Decode.
	    my $t = unpack("u",$_);
	    print OUT $t or die("print(".$self->{file}."): $!\n");
	    $size += length($t);
	    $self->{_md5}->add($t) if $self->{md5};
	    next;
	}

	# Check for MIME.
	if ( m;^content-type:.*(image/|multipart);i ) {
	    return 'M';		# MIME
	}

	if ( m/^=ybegin\s+.*\s+name=(.+)/i ) {
	    return "Y$1";	# yEnc
	}

	# Otherwise, search for the uudecode 'begin' line.
	if ( /^begin\s+\d+\s+(.+)$/ ) {
	    $name = $self->{neat}->($1);