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