The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213 # $Id: DragonflyBSD.pm,v 1.1 2007/09/27 16:41:24 drhyde Exp $package Devel::AssertOS::DragonflyBSD;use Devel::CheckOS qw(die_unsupported);$VERSION = '1.0';sub os_is { $^O eq 'dragonfly' ? 1 : 0; }die_unsupported() unless(os_is());1;
# $Id: DragonflyBSD.pm,v 1.1 2007/09/27 16:41:24 drhyde Exp $
package
Devel::AssertOS::DragonflyBSD;
use
Devel::CheckOS
qw(die_unsupported)
;
$VERSION
=
'1.0'
sub
os_is { $^O eq
'dragonfly'
? 1 : 0; }
die_unsupported()
unless
(os_is());
1;