default month was off by one (#1)

Changes

@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+  - month was off by one (gh#1)
 
 0.06      2013-06-25 16:08:36 EST5EDT
   - Add get_user_tags method

lib/WebService/LiveJournal/Client.pm

@@ -857,8 +857,21 @@ sub send_request
       ),
   );
 
+  #use Test::More;
+  #use XML::LibXML;
+  #use XML::LibXML::PrettyPrint;
+  #my $xml = XML::LibXML->new->parse_string($request->as_string);
+  #my $pp = XML::LibXML::PrettyPrint->new(indent_string => '  ')->pretty_print($xml);
+  #note 'send request:';
+  #note $xml->toString;
 
   my $response = $self->{client}->send_request($request);
+
+  #my $xml = XML::LibXML->new->parse_string($response->as_string);
+  #my $pp = XML::LibXML::PrettyPrint->new(indent_string => '  ')->pretty_print($xml);
+  #note 'recv response:';
+  #note $xml->toString;
+
   if(ref $response)
   {
     if($response->is_fault)
@@ -891,23 +904,24 @@ sub _post
   my $self = shift;
   my $ua = $self->{client}->useragent;
   my %arg = @_;
-  #print "====\nOUT:\n";
+  #use Test::More;
+  #note "====\nOUT:\n";
   #foreach my $key (keys %arg)
   #{
-  #  print "$key=$arg{$key}\n";
+  #  note "$key=$arg{$key}\n";
   #}
   my $http_response = $ua->post($self->{flat_url}, \@_);
   return $self->_set_error("HTTP Error: " . $http_response->status_line) unless $http_response->is_success;
 
   my $response_text = $http_response->content;
   my @list = split /\n/, $response_text;
   my %h;
-  #print "====\nIN:\n";
+  #note "====\nIN:\n";
   while(@list > 0)
   {
     my $key = shift @list;
     my $value = shift @list;
-    #print "$key=$value\n";
+    #note "$key=$value\n";
     $h{$key} = $value;
   }
 

lib/WebService/LiveJournal/Event.pm

@@ -472,7 +472,7 @@ sub _fill_in_default_time
   &&        defined $self->{min};
   my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime(time);
   $self->{year}  //= $year+1900;
-  $self->{month} //= $month;
+  $self->{month} //= $month+1;
   $self->{day}   //= $mday;
   $self->{hour}  //= $hour;
   $self->{min}   //= $min;

t/live-getevents.t

@@ -1,21 +1,19 @@
 use strict;
 use warnings;
 use Test::More;
-use WebService::LiveJournal::Client;
+use WebService::LiveJournal;
 
 plan skip_all => 'for live tests set TEST_WEBSERVICE_LIVEJOURNAL' unless defined $ENV{TEST_WEBSERVICE_LIVEJOURNAL};
 plan tests => 11;
 
 my($user,$pass,$server) = split /:/, $ENV{TEST_WEBSERVICE_LIVEJOURNAL};
 
-my $client = WebService::LiveJournal::Client->new(
+my $client = WebService::LiveJournal->new(
   server => $server,
   username => $user,
   password => $pass,
 );
 
-diag $WebService::LiveJournal::Client::error unless defined $client;
-
 while(1)
 {
   my $list = $client->getevents('lastn', howmany => 50);