D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
thread-self
/
root
/
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
lib
/
Filename :
TieOut.pm
back
Copy
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;
Name
Size
Last Modified
Owner
Permissions
Actions
Dev
Dir
July 28 2023 2:57:48
root
0755
Test
Dir
July 28 2023 2:57:48
root
0755
Dummy.pm
0.054
KB
March 30 2018 5:53:02
root
0644
MyOverload.pm
0.593
KB
March 30 2018 5:53:02
root
0644
MyTest.pm
0.124
KB
March 30 2018 5:53:02
root
0644
NoExporter.pm
0.146
KB
March 30 2018 5:53:02
root
0644
SigDie.pm
0.077
KB
March 30 2018 5:53:02
root
0644
SkipAll.pm
0.069
KB
March 30 2018 5:53:02
root
0644
SmallTest.pm
0.328
KB
March 30 2018 5:53:02
root
0644
TieOut.pm
0.363
KB
March 30 2018 5:53:02
root
0644
2017 © D7net | D704T team