5tarl0rd

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

package Dev::Null;

use strict;

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

1;

5tarL0rd By 5tarl0rd Being Anonymous