burak / CPAN-Parse-HTTP-UserAgent

Parser for the User Agent string

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)

Up to file-list Changes:

@@ -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.20';
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  = @args % 2 ? () : (
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
        $buf .= sprintf "%s%s%s\n",
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
}

Up to file-list t/data/parse.dat:

@@ -2265,4 +2265,7 @@ iCab/Pre2.0 (Macintosh; I; PPC)
2265
2265
'name'             => 'iCab',
2266
2266
'generic'          => 1
2267
2267
2268
[AGENT]
2269
#TODO: Nokia6630/1.0 (3.45.113) SymbianOS/8.0 Series60/2.6 Profile/MIDP-2.0 Configuration/CLDC-1.1
2270
2268
2271
#----------------------------------- THE END