File Coverage

blib/lib/Acme/Nothing.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Acme::Nothing;
2             BEGIN {
3 1     1   574 $Acme::Nothing::VERSION = '0.03';
4             }
5             # ABSTRACT: No more module loading!
6              
7 1     1   8 use strict;
  1         2  
  1         31  
8 1     1   28 use 5.008;
  1         3  
  1         49  
9 1     1   6 use warnings;
  1         1  
  1         89  
10              
11 1     1   7 open my $fh, '<', \$Acme::Nothing::VERSION;
  1         2  
  1         9  
12             close $fh;
13              
14             @INC = sub {
15             $INC{ $_[1] } = $_[1];
16 1     1   867 open my $fh, '<', \!$[ or die;
  1         476  
  1         124  
17             return $fh;
18             };
19              
20             Internals::SvREADONLY( $_, 1 ) for @INC;
21             Internals::SvREADONLY( @INC, 1 );
22              
23             () = .0
24              
25             __END__