view release on metacpan or  search on metacpan

lib/Acme/Nothing.pm  view on Meta::CPAN

use strict;
use 5.008;
use warnings;

open my $fh, '<', \$Acme::Nothing::VERSION;
close $fh;

@INC = sub {
    $INC{ $_[1] } = $_[1];
    open my $fh, '<', \!$[ or die;
    return $fh;
};

Internals::SvREADONLY( $_, 1 ) for @INC;
Internals::SvREADONLY( @INC, 1 );

() = .0

__END__