From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

OALDERS / App-perlimports-0.000056 / test-data / quoted-var.pl 

            

              
1
2
3
4
5
6
7
8
9
10

              
use strict;
use warnings;
use IO::Uncompress::Gunzip qw( $GunzipError );
sub load {
    my $fname = 'foo.gz';
    IO::Uncompress::Gunzip->new($fname)
        or die "gzip failed: $GunzipError\n";
}