Changeset 18397 for lang/perl

Timestamp:

08/28/08 18:18:23 (3 months ago)

Author:

bayashi

Message:

add svn option

Files:

• lang/perl/Net-DMM/trunk/lib/Net/DMM.pm (modified) (4 diffs)

lang/perl/Net-DMM/trunk/lib/Net/DMM.pm

@@ -12 +12 @@
 use URI;
 
-our $VERSION = '0.0.2';
+our $VERSION = '0.0.3';
 
 sub new {
@@ -38 +38 @@
         croak "area param is invalid. set 'com' or 'co.jp'."
                 if !$opt->{area} || $opt->{area} !~ /^(?:com|co\.jp)$/;
+        $self->{svr} = 'www' unless $self->{svr};
         $self->{sort} = 'rank_asc' unless $self->{sort};
         $self->{limit} = 10 unless $self->{limit};
@@ -52 +53 @@
         my $opt  = shift;
         my $searchstr = $opt->{searchstr} || $self->{searchstr};
-        my $uri = URI->new("http://www.dmm.".$opt->{area}."/search/");
+        my $uri = URI->new("http://".$opt->{svr}.".dmm.".$opt->{area}."/search/");
         $uri->query_form(
                 category  => $opt->{category} || $self->{category},
@@ -81 +82 @@
 =head1 VERSION
 
-This document describes Net::DMM version 0.0.2
+This document describes Net::DMM version 0.0.3