File Coverage

blib/lib/ExtUtils/Builder/Linker/ELF/GCC.pm
Criterion Covered Total %
statement 15 20 75.0
branch n/a
condition 3 6 50.0
subroutine 4 5 80.0
pod 0 1 0.0
total 22 32 68.7


line stmt bran cond sub pod time code
1             package ExtUtils::Builder::Linker::ELF::GCC;
2             $ExtUtils::Builder::Linker::ELF::GCC::VERSION = '0.035';
3 2     2   942 use strict;
  2         3  
  2         67  
4 2     2   6 use warnings;
  2         3  
  2         71  
5              
6 2     2   7 use parent 'ExtUtils::Builder::Linker::ELF::Any';
  2         7  
  2         15  
7              
8             sub _init {
9 2     2   8 my ($self, %args) = @_;
10 2   50     9 $args{ld} //= 'gcc';
11 2   50     13 $args{ccdlflags} //= ['-Wl,-E'];
12 2   50     12 $args{lddlflags} //= ['-shared'];
13 2         13 $self->SUPER::_init(%args);
14 2         5 return;
15             }
16              
17             sub add_runtime_path {
18 0     0 0   my ($self, $dirs, %opts) = @_;
19 0           $self->add_argument(ranking => $self->fix_ranking(30, $opts{ranking}), value => [ map { "-Wl,-rpath,$_" } @{$dirs} ]);
  0            
  0            
20 0           return;
21             }
22              
23             1;
24              
25