File Coverage

blib/lib/Devel/AssertOS/BeOS.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition 3 3 100.0
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Devel::AssertOS::BeOS;
2              
3 6     6   1068 use Devel::CheckOS;
  6         12  
  6         333  
4 6     6   37 use strict;
  6         13  
  6         120  
5 6     6   38 use warnings;
  6         13  
  6         177  
6 6     6   34 no warnings 'redefine';
  6         25  
  6         1148  
7              
8             our $VERSION = '1.4';
9              
10             # weird special case, not quite like other OS modules, as this is both
11             # an OS *and* a family - maybe this should be fixed at some point
12 2     2   21 sub matches { return qw(Haiku) }
13             sub os_is {
14 7 100 100 7   79 return 1 if(
15             $^O =~ /^beos$/i ||
16             Devel::CheckOS::os_is('Haiku')
17             );
18 5         35 return 0;
19             }
20              
21             sub expn {
22 1     1   81 join("\n",
23             "This matches both Be Inc's original BeOS, as well as Haiku, an open-",
24             "source BeOS-compatible project. This is because Haiku is intended",
25             "to be able to run BeOS software, while also having its own extra features."
26             )
27             }
28              
29             Devel::CheckOS::die_unsupported() unless(os_is());
30              
31             =head1 COPYRIGHT and LICENCE
32              
33             Copyright 2023 David Cantrell
34              
35             This software is free-as-in-speech software, and may be used, distributed, and modified under the terms of either the GNU General Public Licence version 2 or the Artistic Licence. It's up to you which one you use. The full text of the licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively.
36              
37             =cut
38              
39             1;