File Coverage

blib/lib/Acme/Segfault.pm
Criterion Covered Total %
statement 5 14 35.7
branch n/a
condition n/a
subroutine 2 6 33.3
pod 4 4 100.0
total 11 24 45.8


line stmt bran cond sub pod time code
1             package Acme::Segfault;
2 2     2   60754 use utf8;
  2         22  
  2         13  
3              
4             BEGIN {
5 2     2   111 require Exporter;
6 2         417 *{import} = \&Exporter::import;
7             }
8              
9             our @EXPORT_OK = qw/segfault segfault_1 segfault_2 segfault_3/;
10             our $VERSION = '0.01';
11              
12             sub segfault {
13 0     0 1   &segfault_1();
14 0           &segfault_2();
15 0           &segfault_3();
16             }
17              
18 0     0 1   sub segfault_1 { $x = []; push @$x, eval { $x = 1; return $x = 1; } }
  0            
  0            
  0            
19 0     0 1   sub segfault_2 { system("kill 11,$$"); }
20 0     0 1   sub segfault_3 { *::=%::=0 }
21              
22             1;
23              
24             __END__