File Coverage

lib/ExtUtils/MM_BeOS.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition 0 9 0.0
subroutine 4 6 66.6
pod 2 2 100.0
total 18 35 51.4


line stmt bran cond sub pod time code
1              
2             use strict;
3 1     1   117130 use warnings;
  1         2  
  1         41  
4 1     1   6  
  1         2  
  1         44  
5             =head1 NAME
6              
7             ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker
8              
9             =head1 SYNOPSIS
10              
11             use ExtUtils::MM_BeOS; # Done internally by ExtUtils::MakeMaker if needed
12              
13             =head1 DESCRIPTION
14              
15             See L<ExtUtils::MM_Unix> for a documentation of the methods provided
16             there. This package overrides the implementation of these methods, not
17             the semantics.
18              
19             =over 4
20              
21             =cut
22              
23             use ExtUtils::MakeMaker::Config;
24 1     1   6 use File::Spec;
  1         1  
  1         10  
25 1     1   4 require ExtUtils::MM_Any;
  1         2  
  1         219  
26             require ExtUtils::MM_Unix;
27              
28             our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
29             our $VERSION = '7.64';
30             $VERSION =~ tr/_//d;
31              
32              
33             =item os_flavor
34              
35             BeOS is BeOS.
36              
37             =cut
38              
39             return('BeOS');
40             }
41 0     0 1    
42             =item init_linker
43              
44             libperl.a equivalent to be linked to dynamic extensions.
45              
46             =cut
47              
48             my($self) = shift;
49              
50             $self->{PERL_ARCHIVE} ||=
51 0     0 1   File::Spec->catdir('$(PERL_INC)',$Config{libperl});
52             $self->{PERL_ARCHIVEDEP} ||= '';
53             $self->{PERL_ARCHIVE_AFTER} ||= '';
54 0   0       $self->{EXPORT_LIST} ||= '';
55 0   0       }
56 0   0        
57 0   0       =back
58              
59             =cut
60              
61             1;
62