Build all packages removed dependencies of libtest-exception-perl libtest-warn-perl...

[dh-make-perl] / dev / i386 / libperl-critic-perl / libperl-critic-perl-1.088 / inc / Devel / AssertOS.pm

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS.pm b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS.pm
new file mode 100644 (file)
index 0000000..2cc268e
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS.pm
@@ -0,0 +1,81 @@
+# $Id: AssertOS.pm,v 1.2 2007/09/28 16:30:11 drhyde Exp $
+
+package Devel::AssertOS;
+
+use Devel::CheckOS qw(die_if_os_isnt);
+
+use strict;
+
+use vars qw($VERSION);
+
+$VERSION = '1.0';
+
+# localising prevents the warningness leaking out of this module
+local $^W = 1;    # use warnings is a 5.6-ism
+
+=head1 NAME
+
+Devel::AssertOS - require that we are running on a particular OS
+
+=head1 DESCRIPTION
+
+Devel::AssertOS is a utility module for Devel::CheckOS and
+Devel::AssertOS::*.  It is nothing but a magic C<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.
+
+=cut
+
+sub import {
+    shift;
+    die("Devel::AssertOS needs at least one parameter\n") unless(@_);
+    die_if_os_isnt(@_);
+}
+
+=head1 BUGS and FEEDBACK
+
+I welcome feedback about my code, including constructive criticism.
+Bug reports should be made using L<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:
+  L<http://www.cantrell.org.uk/david/wishlist/>
+
+=head1 SEE ALSO
+
+$^O in L<perlvar>
+
+L<perlport>
+
+L<Devel::CheckOS>
+
+L<Devel::AssertOS::Extending>
+
+=head1 AUTHOR
+
+David Cantrell E<lt>F<david@cantrell.org.uk>E<gt>
+
+Thanks to David Golden for suggesting that I add this utility module.
+
+=head1 COPYRIGHT and LICENCE
+
+Copyright 2007 David Cantrell
+
+This module is free-as-in-speech software, and may be used, distributed,
+and modified under the same conditions as perl itself.
+
+=head1 CONSPIRACY
+
+This module is also free-as-in-mason software.
+
+=cut
+
+$^O;