Current File : //usr/share/doc/perl-Test-Simple/t/lib/Dev/Null.pm

package Dev::Null;

use strict;

sub TIEHANDLE { bless {}, shift }
sub PRINT { 1 }

1;