burak / CPAN-Parse-HTTP-UserAgent
Parser for the User Agent string
Clone this repository (size: 159.9 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/burak/cpan-parse-http-useragent/
| commit 103: | 57584c3764be |
| parent 102: | 9d3eb8fdbbf5 |
| branch: | default |
Data::Dumper dumps are now sorted.
- View burak's profile
-
burak's public repos »
- CPAN-Padre-Plugin-HG
- CPAN-Net-Bitbucket
- CPAN-GD-SecurityImage
- CPAN-Lingua-TR-Numbers
- CPAN-Sys-Info-Driver-Windows
- CPAN-Task-Lingua-Any-Numbers
- CPAN-Time-Elapsed
- CPAN-Win32-ASP-CGI
- CPAN-Scalar-Util-Reftype
- CPAN-Parse-HTTP-UserAgent
- CPAN-Acme-CPANAuthors-Turkish
- CPAN-tools
- CPAN-Device-CableModem-Motorola-SB4200
- CPAN-Text-Template-Simple
- CPAN-CGI-Auth-Basic
- CPAN-GD-Thumbnail
- CPAN-Lingua-Any-Numbers
- CPAN-MP3-M3U-Parser
- CPAN-PHP-Session-DBI
- CPAN-Sys-Info
- CPAN-Sys-Info-Base
- CPAN-Sys-Info-Driver-BSD
- CPAN-Sys-Info-Driver-Linux
- CPAN-Sys-Info-Driver-Unknown
- CPAN-Test-Sys-Info
- Send message
5 months ago
Changed (Δ293 bytes):
raw changeset »
Changes (3 lines added, 0 lines removed)
lib/Parse/HTTP/UserAgent.pm (1 lines added, 1 lines removed)
lib/Parse/HTTP/UserAgent/Base/Dumper.pm (7 lines added, 3 lines removed)
t/data/parse.dat (3 lines added, 0 lines removed)
| … | … | @@ -2,6 +2,9 @@ Revision history for Perl extension Pars |
2 |
2 |
|
3 |
3 |
Time zone is UTC+2. |
4 |
4 |
|
5 |
0.21 Fri Oct 30 02:17:17 2009 |
|
6 |
=> Data::Dumper dumps are now sorted. |
|
7 |
||
5 |
8 |
0.20 Tue Oct 27 05:32:45 2009 |
6 |
9 |
=> New parsers for Emacs, HotJava and a generic parser for robot types. |
7 |
10 |
Up to file-list lib/Parse/HTTP/UserAgent.pm:
| … | … | @@ -3,7 +3,7 @@ use strict; |
3 |
3 |
use warnings; |
4 |
4 |
use vars qw( $VERSION ); |
5 |
5 |
|
6 |
$VERSION = '0.2 |
|
6 |
$VERSION = '0.21'; |
|
7 |
7 |
|
8 |
8 |
use base qw( |
9 |
9 |
Parse::HTTP::UserAgent::Base::IS |
Up to file-list lib/Parse/HTTP/UserAgent/Base/Dumper.pm:
| … | … | @@ -9,7 +9,7 @@ use Carp qw( croak ); |
9 |
9 |
|
10 |
10 |
sub dumper { |
11 |
11 |
my($self, @args) = @_; |
12 |
my %opt |
|
12 |
my %opt = @args % 2 ? () : ( |
|
13 |
13 |
type => 'dumper', |
14 |
14 |
format => 'none', |
15 |
15 |
interpret => 0, |
| … | … | @@ -73,6 +73,7 @@ sub _dumper_dumper { |
73 |
73 |
$titles[1], |
74 |
74 |
q{-} x $max, q{ } x 2, q{-} x ($max*2); |
75 |
75 |
require Data::Dumper; |
76 |
my @buf; |
|
76 |
77 |
foreach my $id ( @ids ) { |
77 |
78 |
my $name = $args ? $id->{name} : $id; |
78 |
79 |
my $val = $args ? $id->{value} : $self->[ $self->$id() ]; |
| … | … | @@ -84,11 +85,14 @@ sub _dumper_dumper { |
84 |
85 |
$rv =~ s{ ; }{}xms; |
85 |
86 |
$rv eq '[]' ? q{} : $rv; |
86 |
87 |
} if $val && ref $val; |
87 |
|
|
88 |
push @buf, [ |
|
88 |
89 |
$name, |
89 |
90 |
(q{ } x (2 + $max - length $name)), |
90 |
91 |
defined $val ? $val : q{} |
91 |
|
|
92 |
]; |
|
93 |
} |
|
94 |
foreach my $row ( sort { lc $a->[0] cmp lc $b->[0] } @buf ) { |
|
95 |
$buf .= sprintf "%s%s%s\n", @{ $row }; |
|
92 |
96 |
} |
93 |
97 |
return $buf; |
94 |
98 |
} |
