File-Stream

 view release on metacpan or  search on metacpan

lib/File/Stream.pm  view on Meta::CPAN

    my $class = shift;
    my $fh    = shift;
    my $self  = {
        fh          => $fh,
        read_length => 1024,
        separator   => undef,
        buffer      => '',
        die_on_anchors => 1,
        @_
    };
    bless $self => $class;
}

sub READLINE { goto &readline; }

sub PRINT {
    my $self = shift;
    my $buf = join( defined $, ? $, : "", @_ );
    $buf .= $\ if defined $\;
    $self->WRITE( $buf, length($buf), 0 );
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.908 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )