summaryrefslogtreecommitdiff
path: root/cpan/Perl-OSType
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2013-03-20 17:14:21 -0400
committerDavid Golden <dagolden@cpan.org>2013-03-20 17:16:25 -0400
commit14731ad1b39d44be8354a1cdd95deb70f2203fa7 (patch)
tree53938399d00f61becb4a34852cb31f1669d236a0 /cpan/Perl-OSType
parent79968a97de99437ff479c8104c6b81884a41d694 (diff)
downloadperl-14731ad1b39d44be8354a1cdd95deb70f2203fa7.tar.gz
update Perl::OSType from 1.002 to 1.003
Diffstat (limited to 'cpan/Perl-OSType')
-rw-r--r--cpan/Perl-OSType/lib/Perl/OSType.pm57
-rw-r--r--cpan/Perl-OSType/t/00-compile.t53
-rw-r--r--cpan/Perl-OSType/t/OSType.t2
3 files changed, 39 insertions, 73 deletions
diff --git a/cpan/Perl-OSType/lib/Perl/OSType.pm b/cpan/Perl-OSType/lib/Perl/OSType.pm
index 6c2cf127e9..a79426d56c 100644
--- a/cpan/Perl-OSType/lib/Perl/OSType.pm
+++ b/cpan/Perl-OSType/lib/Perl/OSType.pm
@@ -1,18 +1,8 @@
-#
-# This file is part of Perl-OSType
-#
-# This software is copyright (c) 2010 by David Golden.
-#
-# This is free software; you can redistribute it and/or modify it under
-# the same terms as the Perl 5 programming language system itself.
-#
use strict;
use warnings;
package Perl::OSType;
-BEGIN {
- $Perl::OSType::VERSION = '1.002';
-}
# ABSTRACT: Map Perl operating system names to generic types
+our $VERSION = '1.003'; # VERSION
require Exporter;
our @ISA = qw(Exporter);
@@ -71,7 +61,7 @@ my %OSTYPES = qw(
MacOS MacOS
VMS VMS
- VOS VOS
+ vos VOS
riscos RiscOS
amigaos Amiga
mpeix MPEiX
@@ -92,6 +82,7 @@ sub is_os_type {
1;
+__END__
=pod
@@ -101,7 +92,7 @@ Perl::OSType - Map Perl operating system names to generic types
=head1 VERSION
-version 1.002
+version 1.003
=head1 SYNOPSIS
@@ -155,20 +146,48 @@ L<Devel::CheckOS>
=back
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/dagolden/perl-ostype/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software. The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/dagolden/perl-ostype>
+
+ git clone git://github.com/dagolden/perl-ostype.git
+
=head1 AUTHOR
David Golden <dagolden@cpan.org>
-=head1 COPYRIGHT AND LICENSE
+=head1 CONTRIBUTORS
-This software is copyright (c) 2010 by David Golden.
+=over 4
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
+=item *
-=cut
+Jonas B. Nielsen <jonasbn@hoarfrost.local>
+=item *
-__END__
+Paul Green <Paul.Green@stratus.com>
+=back
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2013 by David Golden.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/cpan/Perl-OSType/t/00-compile.t b/cpan/Perl-OSType/t/00-compile.t
deleted file mode 100644
index 08e832b092..0000000000
--- a/cpan/Perl-OSType/t/00-compile.t
+++ /dev/null
@@ -1,53 +0,0 @@
-#!perl
-#
-# This file is part of Perl-OSType
-#
-# This software is copyright (c) 2010 by David Golden.
-#
-# This is free software; you can redistribute it and/or modify it under
-# the same terms as the Perl 5 programming language system itself.
-#
-
-use strict;
-use warnings;
-
-use Test::More;
-use File::Find;
-use File::Temp qw{ tempdir };
-
-my @modules;
-find(
- sub {
- return if $File::Find::name !~ /\.pm\z/;
- my $found = $File::Find::name;
- $found =~ s{^lib/}{};
- $found =~ s{[/\\]}{::}g;
- $found =~ s/\.pm$//;
- # nothing to skip
- push @modules, $found;
- },
- 'lib',
-);
-
-my @scripts = glob "bin/*";
-
-my $plan = scalar(@modules) + scalar(@scripts);
-$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
-
-{
- # fake home for cpan-testers
- local $ENV{HOME} = tempdir( CLEANUP => 1 );
-
- like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
- for sort @modules;
-
- SKIP: {
- eval "use Test::Script 1.05; 1;";
- skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles( $file, "$script script compiles" );
- }
- }
-}
diff --git a/cpan/Perl-OSType/t/OSType.t b/cpan/Perl-OSType/t/OSType.t
index d471f9c5fe..46cca76854 100644
--- a/cpan/Perl-OSType/t/OSType.t
+++ b/cpan/Perl-OSType/t/OSType.t
@@ -61,7 +61,7 @@ can_ok( $test_pkg, @functions );
is(is_os_type('Unix', NON_EXISTENT_OS), '', "$fcn: non-existent OS is false");
- local $^O = 'VOS';
+ local $^O = 'vos';
ok( ! is_os_type( 'Unix' ), "$fcn: false" );
ok( is_os_type( 'VOS' ), "$fcn: true" );
ok( ! is_os_type(), "$fcn: false if no type provided" );