Add missing cookie logic

Changes

@@ -1,6 +1,8 @@
 0.003 ???
     - Add support for ChromDriver.
     - Document how to use different backends.
+    - Add cookie getter/setter.
+    - Rename delete_cookie to cookie_delete.
 
 0.002 2015-07-05
     - $drv->() caches the closure and is now twice as fast.

lib/WebDriver/Tiny.pm

@@ -129,6 +129,31 @@ sub base_url {
     $_[0][2];
 }
 
+sub cookie {
+    my ( $self, $name, $value, @args ) = @_;
+
+    if ( @_ == 2 ) {
+        my $cookie = $self->_req( GET => "/cookie/$name" )->{value};
+
+        # FIXME PhantomJS returns all cookies.
+        return ref $cookie eq 'ARRAY'
+            ? grep $_->{name} eq $name, @$cookie : $cookie;
+    }
+
+    $self->_req( POST => '/cookie',
+        { cookie => { name => $name, value => $value, @args } } );
+
+    $self;
+}
+
+sub cookie_delete {
+    my $self = shift;
+
+    $self->_req( DELETE => '/cookie' . ( @_ ? '/' . shift // '' : '' ) );
+
+    $self;
+}
+
 sub cookies {
     +{
         map { $_->{name} => $_ }
@@ -187,14 +212,6 @@ sub find {
               : bless [ $self, @ids ], 'WebDriver::Tiny::Elements';
 }
 
-sub delete_cookie {
-    my $self = shift;
-
-    $self->_req( DELETE => '/cookie' . ( @_ ? '/' . shift // '' : '' ) );
-
-    $self;
-}
-
 sub execute {
     my ( $self, $script, @args ) = @_;
 

lib/WebDriver/Tiny.pod

@@ -289,17 +289,35 @@ Maximum number of attempts to try and find a match.
 
 =head2 Cookies
 
-=head3 cookies
+=head3 cookie
 
- my $cookies = $drv->cookies;
+ # Get cookie "foo".
+ my $cookie = $drv->cookie('foo');
+
+ # Set cookie "foo".
+ $drv->cookie( foo => 'value' );
+
+ # Or
+ $drv->cookie(
+     foo      => 'value',
+     domain   => 'example.com',
+     expires  => 123,
+     httponly => 0,
+     secure   => 1,
+ );
 
-=head3 delete_cookie
+=head3 cookie_delete
 
  # Delete all cookies.
- $drv->delete_cookie;
+ $drv->cookie_delete;
 
  # Delete cookie "foo".
- $drv->delete_cookie('foo');
+ $drv->cookie_delete('foo');
+
+=head3 cookies
+
+ # Get a hashref of all cookies.
+ my $cookies = $drv->cookies;
 
 =head2 Navigation
 

t/00-namespace.t

@@ -24,8 +24,9 @@ is_deeply [ sort keys %got ], [ qw/
     base_url
     capabilities
     close_page
+    cookie
+    cookie_delete
     cookies
-    delete_cookie
     dismiss_alert
     execute
     execute_phantom

t/05-return-self.t

@@ -5,19 +5,19 @@ use t scalar(
         back
         base_url
         close_page
-        delete_cookie
+        cookie_delete
         dismiss_alert
         forward
         get
         refresh
         switch_page
         window_maximize
     /
-) + 2;
+) + 3;
 
 my $drv = WebDriver::Tiny->new( port => 1 );
 
 is $drv->$_('foo'), $drv, "->$_ should return \$self" for @::methods;
 
 is $drv->$_( 1, 1 ), $drv, "->$_ should return \$self"
-    for qw/window_position window_size/;
+    for qw/cookie window_position window_size/;

xt/all.t

@@ -25,7 +25,7 @@ use Cwd ();
 use File::Temp;
 use Test::Deep;
 use Test::Fatal;
-use Test::More tests => 31;
+use Test::More tests => 35;
 use URI;
 use URI::QueryParam;
 use WebDriver::Tiny;
@@ -69,8 +69,6 @@ cmp_deeply $drv->capabilities, {
     webStorageEnabled        => 0,
 }, 'capabilities';
 
-is_deeply $drv->cookies, {}, 'cookies';
-
 cmp_deeply $drv->page_ids,
     [ re qr/^[\da-f]{8}-(?:[\da-f]{4}-){3}[\da-f]{12}$/ ], 'page_ids';
 
@@ -92,6 +90,45 @@ chomp( my $ver = `phantomjs -v` );
 
 like $drv->user_agent, qr( PhantomJS/\Q$ver\E ), 'user_agent';
 
+note 'Cookies';
+###############
+
+is_deeply $drv->cookies, {}, 'No cookies';
+
+$drv->cookie( foo => 'bar' );
+$drv->cookie( baz => 'qux', httponly => 1, path => Cwd::fastcwd );
+
+my $cookie = {
+    domain   => '',
+    httponly => bool(0),
+    name     => 'foo',
+    path     => Cwd::fastcwd . '/xt/',
+    secure   => bool(0),
+    value    => 'bar',
+};
+
+cmp_deeply $drv->cookie('foo'), $cookie, 'Cookie "foo" exists';
+
+cmp_deeply $drv->cookies, {
+    foo => $cookie,
+    baz => {
+        domain   => '',
+        httponly => bool(1),
+        name     => 'baz',
+        path     => Cwd::fastcwd,
+        secure   => bool(0),
+        value    => 'qux',
+    },
+}, 'Cookies exists';
+
+$drv->cookie_delete('foo');
+
+is_deeply [ keys %{ $drv->cookies } ], ['baz'], 'Only "baz" left';
+
+$drv->cookie_delete;
+
+is keys %{ $drv->cookies }, 0, 'No cookies left';
+
 note 'Ghost';
 #############