Null.pm
[
plain text
]
package
Dev::Null;
use
strict;
sub
TIEHANDLE {
bless
{},
shift
}
sub
PRINT { 1 } 1;