File Coverage

blib/lib/Win32/Mock/Win32CORE.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 20 21 95.2


line stmt bran cond sub pod time code
1             package # hide from PAUSE
2             Win32;
3 2     2   2401 use strict;
  2         4  
  2         80  
4 2     2   13 use warnings;
  2         3  
  2         89  
5              
6             sub AUTOLOAD {
7 2     2   9 no strict "vars";
  2         4  
  2         246  
8              
9             # save the value of these variables
10 1     1   1049 my @save = (0+$!, 0+$^E);
11              
12             # if what is asked is a Win32 function, load the real module
13 1 50       6 if (index($AUTOLOAD, "Win32::") >= 0) {
14 1         520 require Win32;
15 1         55 Win32->import;
16             }
17              
18             # restore the values
19 1         4 ($!, $^E) = @save;
20              
21             # jump to the actual function
22 1         6 goto &$AUTOLOAD
23             }
24              
25             1
26              
27             __END__