1package Devel::AssertOS::MacOSX::v10_9; 2 3use Devel::CheckOS; 4use strict; 5use warnings; 6no warnings 'redefine'; 7 8our $VERSION = '1.0'; 9 10sub os_is { 11 Devel::CheckOS::os_is('MacOSX') && 12 `sw_vers -productVersion` =~ /^10\.9\./ ? 1 : 0; 13} 14 15sub expn { "The operating system is some version of OS X Mavericks (10.9)" } 16 17Devel::CheckOS::die_unsupported() unless(os_is()); 18 19=head1 COPYRIGHT and LICENCE 20 21Copyright 2007 - 2008 David Cantrell 22 23This 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. 24 25=cut 26 271; 28 29