view release on metacpan or  search on metacpan

lib/PerlIO/via/xz.pm  view on Meta::CPAN

#DDumper { PUSHED => \@_ };
    $mode =~ m/^[wr]$/ or return 1;
    my $self = {
	mode  => $mode,		# "r" or "w"
	fh    => undef,
	level => 9,		# Not yet settable
	bsz   => 4096,		# Not yet settable
	xz    => undef,
	};
    return bless $self => $class;
    } # PUSHED

sub FILENO {
    my ($self, $fh) = @_;
#DDumper { FILENO => \@_ };
    unless (defined $self->{xz}) {
	$self->{fh}     = $fh;
	$self->{fileno} = fileno $fh;
	if ($self->{mode} eq "r") {
	    my $in  = $fh;