File Coverage

blib/lib/ExtUtils/Builder/Linker/Unixy.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             package ExtUtils::Builder::Linker::Unixy;
2             $ExtUtils::Builder::Linker::Unixy::VERSION = '0.037';
3 3     3   1181 use strict;
  3         6  
  3         124  
4 3     3   9 use warnings;
  3         3  
  3         111  
5              
6 3     3   10 use parent 'ExtUtils::Builder::Linker';
  3         3  
  3         23  
7              
8             sub linker_flags {
9 5     5 0 8 my ($self, $from, $to, %opts) = @_;
10 5         6 my @ret;
11 5         6 push @ret, map { $self->new_argument(ranking => $_->{ranking}, value => [ "-L$_->{value}" ]) } @{ $self->{library_dirs} };
  0         0  
  5         12  
12 5         7 push @ret, map { $self->new_argument(ranking => $_->{ranking}, value => [ "-l$_->{value}" ]) } @{ $self->{libraries} };
  0         0  
  5         6  
13 5         15 push @ret, $self->new_argument(ranking => 50, value => [ '-o' => $to, @{$from} ]);
  5         21  
14 5         13 return @ret;
15             }
16              
17             1;
18