File Coverage

lib/ExtUtils/MM_BeOS.pm
Criterion Covered Total %
statement 9 14 64.3
branch n/a
condition 0 7 0.0
subroutine 3 5 60.0
total 12 26 46.2


line stmt bran cond sub time code
1           package ExtUtils::MM_BeOS;
2            
3 1     1 1382 use strict;
  1       2  
  1       42  
4            
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 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 1     1 6 use ExtUtils::MakeMaker::Config;
  1       2  
  1       10  
24 1     1 6 use File::Spec;
  1       2  
  1       196  
25           require ExtUtils::MM_Any;
26           require ExtUtils::MM_Unix;
27            
28           our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
29           our $VERSION = '6.74';
30            
31            
32           =item os_flavor
33            
34           BeOS is BeOS.
35            
36           =cut
37            
38           sub os_flavor {
39 0     0   return('BeOS');
40           }
41            
42           =item init_linker
43            
44           libperl.a equivalent to be linked to dynamic extensions.
45            
46           =cut
47            
48           sub init_linker {
49 0     0   my($self) = shift;
50            
51 0   0     $self->{PERL_ARCHIVE} ||=
52           File::Spec->catdir('$(PERL_INC)',$Config{libperl});
53 0   0     $self->{PERL_ARCHIVE_AFTER} ||= '';
54 0   0     $self->{EXPORT_LIST} ||= '';
55           }
56            
57           =back
58            
59           1;
60           __END__