Codebase list libhttp-browserdetect-perl / 71c6989
Merge tag 'upstream/1.44' Upstream version 1.44 gregor herrmann 11 years ago
7 changed file(s) with 32 addition(s) and 21 deletion(s). Raw diff Collapse all Expand all
+1
-1
Build.PL less more
2626 "Olaf Alders <olaf\@wundercounter.com> (current maintainer)"
2727 ],
2828 "dist_name" => "HTTP-BrowserDetect",
29 "dist_version" => "1.42",
29 "dist_version" => "1.44",
3030 "license" => "perl",
3131 "module_name" => "HTTP::BrowserDetect",
3232 "recommends" => {},
+7
-0
Changes less more
00 Revision history for Perl extension HTTP::BrowserDetect.
1
2 1.44 2012-05-03
3 - Fixes "sort (...) interpreted as function" introduced in 1.43, which was
4 causing tests to fail
5
6 1.43 2012-05-02
7 - Sorts keys when iterating for consistency across Perl implementations (Thom Blake)
18
29 1.42 2012-03-01
310 - Adds bot detection for askjeeves, baidu and googleadsbot (Bill Rhodes)
+12
-12
META.json less more
55 "Olaf Alders <olaf@wundercounter.com> (current maintainer)"
66 ],
77 "dynamic_config" : 0,
8 "generated_by" : "Dist::Zilla version 4.300003, CPAN::Meta::Converter version 2.112621",
8 "generated_by" : "Dist::Zilla version 4.300010, CPAN::Meta::Converter version 2.120630",
99 "license" : [
1010 "perl_5"
1111 ],
2828 },
2929 "runtime" : {
3030 "requires" : {
31 "Exporter" : 0,
32 "strict" : 0,
33 "vars" : 0
31 "Exporter" : "0",
32 "strict" : "0",
33 "vars" : "0"
3434 }
3535 },
3636 "test" : {
3737 "requires" : {
38 "Data::Dump" : 0,
39 "English" : 0,
40 "File::Slurp" : 0,
41 "FindBin" : 0,
42 "JSON::PP" : 0,
43 "Test::More" : 0,
44 "warnings" : 0
38 "Data::Dump" : "0",
39 "English" : "0",
40 "File::Slurp" : "0",
41 "FindBin" : "0",
42 "JSON::PP" : "0",
43 "Test::More" : "0",
44 "warnings" : "0"
4545 }
4646 }
4747 },
5757 "web" : "https://github.com/oalders/http-browserdetect"
5858 }
5959 },
60 "version" : "1.42"
60 "version" : "1.44"
6161 }
6262
+1
-1
Makefile.PL less more
3333 "strict" => 0,
3434 "vars" => 0
3535 },
36 "VERSION" => "1.42",
36 "VERSION" => "1.44",
3737 "test" => {
3838 "TESTS" => "t/*.t"
3939 }
+3
-1
README less more
22 an HTTP user agent string
33
44 VERSION
5 version 1.42
5 version 1.44
66
77 SYNOPSIS
88 use HTTP::BrowserDetect;
395395
396396 Bill Rhodes
397397
398 Thom Blake
399
398400 TO DO
399401 The "_engine()" method currently only handles Gecko and Trident. It
400402 needs to be expanded to handle other rendering engines.
+1
-1
dist.ini less more
44 license = Perl_5
55 copyright_holder = Lee Semel
66 copyright_year = 2012
7 version = 1.42
7 version = 1.44
88 main_module = lib/HTTP/BrowserDetect.pm
99
1010 [GatherDir]
+7
-5
lib/HTTP/BrowserDetect.pm less more
11
22 package HTTP::BrowserDetect;
33 {
4 $HTTP::BrowserDetect::VERSION = '1.42';
4 $HTTP::BrowserDetect::VERSION = '1.44';
55 }
66
77 use vars qw(@ISA @EXPORT @EXPORT_OK @ALL_TESTS);
138138 (
139139 @OS_TESTS, @WINDOWS_TESTS, @MAC_TESTS,
140140 @UNIX_TESTS, @BSD_TESTS, @GAMING_TESTS,
141 keys %DEVICE_TESTS, @BROWSER_TESTS, @IE_TESTS,
141 ( sort ( keys %DEVICE_TESTS ) ), @BROWSER_TESTS, @IE_TESTS,
142142 @OPERA_TESTS, @AOL_TESTS, @NETSCAPE_TESTS,
143143 @FIREFOX_TESTS, @ENGINE_TESTS, @ROBOT_TESTS,
144144 @MISC_TESTS,
11361136
11371137 my ( $self, $check ) = _self_or_default( @_ );
11381138
1139 foreach my $device ( keys %DEVICE_TESTS ) {
1139 foreach my $device ( sort keys %DEVICE_TESTS ) {
11401140 return $device if ( $self->$device );
11411141 }
11421142
12081208 my ( $self, $check ) = _self_or_default( @_ );
12091209
12101210 my @browser_properties;
1211 foreach my $property ( keys %{ $self->{tests} } ) {
1211 foreach my $property ( sort keys %{ $self->{tests} } ) {
12121212 push @browser_properties, lc( $property )
12131213 if ( ${ $self->{tests} }{$property} );
12141214 }
12331233
12341234 =head1 VERSION
12351235
1236 version 1.42
1236 version 1.44
12371237
12381238 =head1 SYNOPSIS
12391239
17161716
17171717 Bill Rhodes
17181718
1719 Thom Blake
1720
17191721 =head1 TO DO
17201722
17211723 The C<_engine()> method currently only handles Gecko and Trident. It needs to