2 package Filter::UUdecode ;
4 use Filter::Util::Call ;
24 if ($status = filter_read() ) <= 0;
29 # Skip the begin line (if it is there)
30 ($_ = ''), next if $count == 1 and /^begin/ ;
32 # is this the last line?
33 if ($_ eq " " or length $_ <= 1) {
35 # If there is an end line, skip it too
37 if ($status = filter_read() ) <= 0 ;
44 $_ = unpack("u", $_) ;
46 # return the uudecoded data