diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Perl/OSType.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Perl/OSType.pm | 50 |
1 files changed, 32 insertions, 18 deletions
diff --git a/Master/tlpkg/tlperl/lib/Perl/OSType.pm b/Master/tlpkg/tlperl/lib/Perl/OSType.pm index a79426d56c2..e6196c46d61 100644 --- a/Master/tlpkg/tlperl/lib/Perl/OSType.pm +++ b/Master/tlpkg/tlperl/lib/Perl/OSType.pm @@ -1,15 +1,14 @@ use strict; use warnings; + package Perl::OSType; # ABSTRACT: Map Perl operating system names to generic types -our $VERSION = '1.003'; # VERSION +our $VERSION = '1.007'; # VERSION require Exporter; our @ISA = qw(Exporter); -our %EXPORT_TAGS = ( - all => [ qw( os_type is_os_type ) ] -); +our %EXPORT_TAGS = ( all => [qw( os_type is_os_type )] ); our @EXPORT_OK = @{ $EXPORT_TAGS{all} }; @@ -18,6 +17,7 @@ my %OSTYPES = qw( aix Unix bsdos Unix beos Unix + bitrig Unix dgux Unix dragonfly Unix dynixptx Unix @@ -50,6 +50,7 @@ my %OSTYPES = qw( gnukfreebsd Unix nto Unix qnx Unix + android Unix dos Windows MSWin32 Windows @@ -68,31 +69,31 @@ my %OSTYPES = qw( ); sub os_type { - my ($os) = @_; - $os = $^O unless defined $os; - return $OSTYPES{ $os } || q{}; + my ($os) = @_; + $os = $^O unless defined $os; + return $OSTYPES{$os} || q{}; } sub is_os_type { - my ($type, $os) = @_; - return unless $type; - $os = $^O unless defined $os; - return os_type($os) eq $type; + my ( $type, $os ) = @_; + return unless $type; + $os = $^O unless defined $os; + return os_type($os) eq $type; } 1; -__END__ - =pod +=encoding UTF-8 + =head1 NAME Perl::OSType - Map Perl operating system names to generic types =head1 VERSION -version 1.003 +version 1.007 =head1 SYNOPSIS @@ -153,7 +154,7 @@ L<Devel::CheckOS> =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker -at L<https://github.com/dagolden/perl-ostype/issues>. +at L<https://github.com/dagolden/Perl-OSType/issues>. You will be notified automatically of any progress on your issue. =head2 Source Code @@ -161,9 +162,9 @@ You will be notified automatically of any progress on your issue. 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> +L<https://github.com/dagolden/Perl-OSType> - git clone git://github.com/dagolden/perl-ostype.git + git clone https://github.com/dagolden/Perl-OSType.git =head1 AUTHOR @@ -179,15 +180,28 @@ Jonas B. Nielsen <jonasbn@hoarfrost.local> =item * +Owain G. Ainsworth <oga@nicotinebsd.org> + +=item * + Paul Green <Paul.Green@stratus.com> +=item * + +Piotr Roszatycki <piotr.roszatycki@gmail.com> + =back =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2013 by David Golden. +This software is copyright (c) 2014 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 + +__END__ + + +# vim: ts=4 sts=4 sw=4 et: |