File Coverage

blib/lib/Darwin/InitObjC.pm
Criterion Covered Total %
statement 11 21 52.3
branch 0 4 0.0
condition 0 3 0.0
subroutine 4 6 66.6
pod 0 2 0.0
total 15 36 41.6


line stmt bran cond sub pod time code
1             package Darwin::InitObjC v1.0.0;
2 1     1   169063 use v5.24;
  1         5  
3 1     1   6 use warnings;
  1         2  
  1         80  
4 1     1   8 use experimental qw(lexical_subs signatures);
  1         2  
  1         8  
5              
6             our $TRIAL = 0;
7              
8 1     1   239 use Config ();
  1         2  
  1         327  
9              
10              
11 0     0 0   sub init () {
  0            
12 0           require DynaLoader;
13 0           DynaLoader::dl_load_file("/System/Library/Frameworks/Foundation.framework/Foundation");
14             }
15              
16             my $maybe_init;
17              
18 0     0 0   sub maybe_init () {
  0            
19 0 0         return if $maybe_init;
20 0 0 0       if ($^O eq "darwin" && $Config::Config{perlpath} eq "/usr/bin/perl") {
21 0           init();
22             }
23 0           $maybe_init = 1;
24             }
25              
26             1;
27             __END__