| Server IP : 127.0.0.1 / Your IP : 216.73.216.48 Web Server : Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.2.12 System : Windows NT DESKTOP-3H4FHQJ 10.0 build 19045 (Windows 10) AMD64 User : win 10 ( 0) PHP Version : 8.2.12 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : D:/xampp/perl/vendor/lib/IO/All/ |
Upload File : |
use strict; use warnings;
package IO::All::Temp;
use IO::All::File -base;
sub temp {
my $self = shift;
bless $self, __PACKAGE__;
my $temp_file = IO::File::new_tmpfile()
or $self->throw("Can't create temporary file");
$self->io_handle($temp_file);
$self->_error_check;
$self->autoclose(0);
$self->is_open(1);
return $self;
}
1;