PATH:
usr
/
share
/
doc
/
perl-Test-Simple-0.98
/
t
/
lib
package TieOut; use strict; sub TIEHANDLE { my $scalar = ''; bless( \$scalar, $_[0] ); } sub PRINT { my $self = shift; $$self .= join( '', @_ ); } sub PRINTF { my $self = shift; my $fmt = shift; $$self .= sprintf $fmt, @_; } sub FILENO { } sub read { my $self = shift; my $data = $$self; $$self = ''; return $data; } 1;
[-] SigDie.pm
[edit]
[+]
..
[-] MyOverload.pm
[edit]
[+]
Test
[-] NoExporter.pm
[edit]
[-] TieOut.pm
[edit]
[-] Dummy.pm
[edit]
[+]
Dev