From 94867b816612a4c08984465c7a54e784d92681d1 Mon Sep 17 00:00:00 2001
From: Grace Yim <grace@toopher.com>
Date: Thu, 20 Nov 2014 10:27:49 -0600
Subject: [PATCH 1/3] Whitespace changes

---
 lib/ToopherAPI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ToopherAPI.pm b/lib/ToopherAPI.pm
index 770b624..73583c9 100644
--- a/lib/ToopherAPI.pm
+++ b/lib/ToopherAPI.pm
@@ -43,7 +43,7 @@ sub new
     _ua => $ua,
     _key => $args{'key'},
     _secret => $args{'secret'},
-  }; 
+  };
 
   bless $self, $class;
   return $self;

From 80bd2219f22237aef95a4b095b6505fca729697e Mon Sep 17 00:00:00 2001
From: Grace Yim <grace@toopher.com>
Date: Thu, 20 Nov 2014 10:28:20 -0600
Subject: [PATCH 2/3] Add test for pair_sms

---
 t/01sanity.t | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/t/01sanity.t b/t/01sanity.t
index 8647fdd..d4754b2 100644
--- a/t/01sanity.t
+++ b/t/01sanity.t
@@ -64,6 +64,15 @@ subtest 'create pairing' => sub {
   is($pairing->id, '1');
 };
 
+subtest 'create sms pairing' => sub {
+  $ua->response->code(200);
+  $ua->response->content('{"id":"1", "enabled":true, "user":{"id":"1","name":"some user"}}');
+  my $pairing = $api->pair_sms('1234', 'some user');
+  is($ua->request->method, 'POST');
+  is($ua->request->{'post_data'}->{'phone_number'}, '1234');
+  is($pairing->id, '1');
+};
+
 subtest 'pairing status' => sub {
   $ua->response->content('{"id":"1", "enabled":true, "user":{"id":"1","name":"some user"}}');
   my $pairing = $api->get_pairing_status('1');

From 77f041c319d81cce765b5cfcfb1fb0fcab861da9 Mon Sep 17 00:00:00 2001
From: Grace Yim <grace@toopher.com>
Date: Thu, 20 Nov 2014 10:28:30 -0600
Subject: [PATCH 3/3] Add pair_sms method

---
 lib/ToopherAPI.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/ToopherAPI.pm b/lib/ToopherAPI.pm
index 73583c9..5b29641 100644
--- a/lib/ToopherAPI.pm
+++ b/lib/ToopherAPI.pm
@@ -57,6 +57,17 @@ sub pair
   $params->{'user_name'} = $user_name;
   return _pairingStatusFromJson($self->post('pairings/create', $params));
 }
+
+sub pair_sms
+{
+  my($self, $phone_number, $user_name, $phone_country, $extras) = @_;
+  my $params = $extras || {};
+  $params->{'phone_number'} = $phone_number;
+  $params->{'user_name'} = $user_name;
+  $params->{'phone_country'} = $phone_country if $phone_country;
+  return _pairingStatusFromJson($self->post('pairings/create/sms', $params));
+}
+
 sub get_pairing_status
 {
   my($self, $pairing_request_id) = @_;