MINI MINI MANI MO

Path : /proc/self/root/usr/share/perl5/vendor_perl/Razor2/Preproc/
File Upload :
Current File : //proc/self/root/usr/share/perl5/vendor_perl/Razor2/Preproc/deNewline.pm

package Razor2::Preproc::deNewline;
use MIME::QuotedPrint;


sub new { 
    return bless {}, shift;
}


sub isit {
    1;
}


sub doit {

    my ($self, $text) = @_;

    my ($hdr, $body) = split /\n\r*\n/, $$text, 2;

    return unless $body;

    unless ($body =~ s/\n+$//s) { 
        return $text;
    }

    $$text = "$hdr\n\n$body";
    return $text;

}


1;

OHA YOOOO