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.035';
3 3     3   1466 use strict;
  3         7  
  3         115  
4 3     3   14 use warnings;
  3         4  
  3         175  
5              
6 3     3   39 use parent 'ExtUtils::Builder::Linker';
  3         5  
  3         18  
7              
8             sub linker_flags {
9 5     5 0 16 my ($self, $from, $to, %opts) = @_;
10 5         8 my @ret;
11 5         9 push @ret, map { $self->new_argument(ranking => $_->{ranking}, value => [ "-L$_->{value}" ]) } @{ $self->{library_dirs} };
  0         0  
  5         13  
12 5         8 push @ret, map { $self->new_argument(ranking => $_->{ranking}, value => [ "-l$_->{value}" ]) } @{ $self->{libraries} };
  0         0  
  5         9  
13 5         25 push @ret, $self->new_argument(ranking => 50, value => [ '-o' => $to, @{$from} ]);
  5         36  
14 5         22 return @ret;
15             }
16              
17             1;
18