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