Devel::AssertOS - require that we are running on a particular OS
Devel::AssertOS is a utility module for Devel::CheckOS and Devel::AssertOS::*.
It is nothing but a magic
import() that lets you do this:
use Devel::AssertOS qw(Linux FreeBSD Cygwin);
which will die unless the platform the code is running on is Linux, FreeBSD or Cygwin.
To assert that the OS is not a specific platform, prepend the platform name with a minus sign. For example, to run on anything but Amiga, do:
use Devel::AssertOS qw(-Amiga);
I welcome feedback about my code, including constructive criticism. Bug reports should be made using http://rt.cpan.org/ or by email.
You will need to include in your bug report the exact value of $^O, what the OS is called (eg Windows Vista 64 bit Ultimate Home Edition), and, if relevant, what "OS family" it should be in and who wrote it.
If you are feeling particularly generous you can encourage me in my open source endeavours by buying me something from my wishlist: http://www.cantrell.org.uk/david/wishlist/
$^O in perlvar
The use-devel-assertos script
David Cantrell <firstname.lastname@example.org>
Thanks to David Golden for suggesting that I add this utility module.
Copyright 2007 David Cantrell
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.
This module is also free-as-in-mason software.