be a little more liberal with RFC 3339 date and time separators

mojolicious · Oct 28, 2014 · aace17e · aace17e
1 parent 874b85f
commit aace17e
Show file tree

Hide file tree

Showing 8 changed files with 11 additions and 9 deletions.
diff --git a/lib/Mojo/ByteStream.pm b/lib/Mojo/ByteStream.pm
@@ -357,7 +357,7 @@ Always true.
 
   my $str = "$bytestream";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/lib/Mojo/Cookie.pm b/lib/Mojo/Cookie.pm
@@ -79,7 +79,7 @@ Always true.
 
   my $str = "$cookie";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/lib/Mojo/Date.pm b/lib/Mojo/Date.pm
@@ -7,8 +7,8 @@ use Time::Local 1.2 'timegm';
 has epoch => sub {time};
 
 my $RFC3339_RE = qr/
-  ^(\d+)-(\d+)-(\d+)T(\d+):(\d+):(\d+(?:\.\d+)?)   # Date and time
-  (?:Z|([+-])(\d+):(\d+))?$                        # Offset
+  ^(\d+)-(\d+)-(\d+)\D+(\d+):(\d+):(\d+(?:\.\d+)?)   # Date and time
+  (?:Z|([+-])(\d+):(\d+))?$                          # Offset
 /xi;
 
 my @DAYS   = qw(Sun Mon Tue Wed Thu Fri Sat);
@@ -184,7 +184,7 @@ Always true.
 
   my $str = "$date";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/lib/Mojo/Exception.pm b/lib/Mojo/Exception.pm
@@ -213,7 +213,7 @@ Always true.
 
   my $str = "$e";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/lib/Mojo/Home.pm b/lib/Mojo/Home.pm
@@ -185,7 +185,7 @@ Always true.
 
   my $str = "$home";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/lib/Mojo/URL.pm b/lib/Mojo/URL.pm
@@ -437,7 +437,7 @@ Always true.
 
   my $str = "$url";
 
-Alias for L</to_string>.
+Alias for L</"to_string">.
 
 =head1 SEE ALSO
 

diff --git a/t/mojo/date.t b/t/mojo/date.t
@@ -30,6 +30,8 @@ is(Mojo::Date->new('1994-11-06T08:49:37Z')->epoch,
   784111777, 'right epoch value');
 is(Mojo::Date->new('1994-11-06t08:49:37.33z')->epoch,
   784111777.33, 'right epoch value');
+is(Mojo::Date->new('2014-08-20  20:45:00')->epoch,
+  1408567500, 'right epoch value');
 is(Mojo::Date->new(784111777.33)->to_datetime,
   '1994-11-06T08:49:37.33Z', 'right format');
 

diff --git a/t/mojo/json_pointer.t b/t/mojo/json_pointer.t
@@ -51,7 +51,7 @@ is $pointer->new([{'f~o~o~/b~' => {'a~' => {'r' => 'baz'}}}])
 # Unicode
 is $pointer->new({'☃' => 'snowman'})->get('/☃'), 'snowman',
   'found the snowman';
-is $pointer->new({'☃' => ['snowman']})->get('/☃/0'), 'snowman',
+is $pointer->new->data({'☃' => ['snowman']})->get('/☃/0'), 'snowman',
   'found the snowman';
 
 # RFC 6901