Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /proc/thread-self/root/usr/share/perl5/vendor_perl/IO/Handle/Util/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //proc/thread-self/root/usr/share/perl5/vendor_perl/IO/Handle/Util/Overloading.pm
package IO::Handle::Util::Overloading;

use strict;
use warnings;

our $VERSION = '0.02';

use asa 'IO::Handle';

use overload (
    '*{}' => sub {
        my $self = shift;
        require IO::Handle::Util;
        return IO::Handle::Util::io_to_glob($self);
    },

    # to quote overload.pm
    #
    #   BUGS Even in list context, the iterator is currently called only
    #   once and with scalar context.
    #
    #'<>' => sub {
    #    if ( wantarray ) {
    #        shift->getlines;
    #    } else {
    #        shift->getline;
    #    }
    #},

    fallback => 1,
);

# ex: set sw=4 et:

__PACKAGE__

__END__

Hry