);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
-$VERSION = "0.36";
+$VERSION = "0.37";
sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function
Examples:
- alternate_language_tags('no-bok') is ('nb')
- alternate_language_tags('nb') is ('no-bok')
- alternate_language_tags('he') is ('iw')
- alternate_language_tags('iw') is ('he')
- alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka')
- alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka')
- alternate_language_tags('en') is ()
- alternate_language_tags('x-mingo-tom') is ('i-mingo-tom')
- alternate_language_tags('x-klikitat') is ('i-klikitat')
- alternate_language_tags('i-klikitat') is ('x-klikitat')
+ alternate_language_tags('no-bok') is ('nb')
+ alternate_language_tags('nb') is ('no-bok')
+ alternate_language_tags('he') is ('iw')
+ alternate_language_tags('iw') is ('he')
+ alternate_language_tags('i-hakka') is ('zh-hakka', 'x-hakka')
+ alternate_language_tags('zh-hakka') is ('i-hakka', 'x-hakka')
+ alternate_language_tags('en') is ()
+ alternate_language_tags('x-mingo-tom') is ('i-mingo-tom')
+ alternate_language_tags('x-klikitat') is ('i-klikitat')
+ alternate_language_tags('i-klikitat') is ('x-klikitat')
This function returns empty-list if given anything other than a formally
valid language tag.
use strict;
use warnings;
-our $VERSION = "1.25_04";
+our $VERSION = "1.25_05";
XSLoader::load 'IO', $VERSION;
sub import {
=head1 SYNOPSIS
- use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File
- use IO; # DEPRECATED
+ use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File
+ use IO; # DEPRECATED
=head1 DESCRIPTION
dist/extutils-parsexs/lib/perlxs.pod Verbatim line length including indents exceeds 79 by 4
dist/extutils-parsexs/lib/perlxstut.pod Verbatim line length including indents exceeds 79 by 10
dist/filter-simple/lib/filter/simple.pm Verbatim paragraph in NAME section 1
-dist/i18n-langtags/lib/i18n/langtags.pm Verbatim line length including indents exceeds 79 by 2
-dist/io/io.pm Verbatim line length including indents exceeds 79 by 1
dist/io/lib/io/socket/inet.pm Verbatim line length including indents exceeds 79 by 5
dist/locale-maketext/lib/locale/maketext.pod No items in =over / =back list 1
dist/locale-maketext/lib/locale/maketext.pod Verbatim line length including indents exceeds 79 by 1