Merge pull request #23 from andrewsolomon/master

add $customer->discount->coupon attributes

Author: rustyconover

lib/Net/Stripe.pm

@@ -14,6 +14,7 @@ use Net::Stripe::Plan;
 use Net::Stripe::Coupon;
 use Net::Stripe::Charge;
 use Net::Stripe::Customer;
+use Net::Stripe::Discount;
 use Net::Stripe::Subscription;
 use Net::Stripe::SubscriptionList;
 use Net::Stripe::Error;

lib/Net/Stripe/Customer.pm

@@ -10,6 +10,7 @@ has 'trial_end'   => (is => 'rw', isa => 'Maybe[Int|Str]');
 has 'card'        => (is => 'rw', isa => 'Maybe[StripeCard]');
 has 'plan'        => (is => 'rw', isa => 'Maybe[StripePlan|Str]');
 has 'coupon'      => (is => 'rw', isa => 'Maybe[StripeCoupon]');
+has 'discount'    => (is => 'rw', isa => 'Maybe[Net::Stripe::Discount]');
 has 'metadata'    => (is => 'rw', isa => 'HashRef');
 
 # API object args

lib/Net/Stripe/Discount.pm

@@ -0,0 +1,30 @@
+package Net::Stripe::Discount;
+use Moose;
+use Moose::Util::TypeConstraints;
+use methods;
+extends 'Net::Stripe::Resource';
+
+has 'coupon' => (is => 'rw', isa => 'Maybe[Net::Stripe::Coupon]');
+
+
+=head1 NAME
+
+Net::Stripe::Discount
+
+=head1 SEE ALSO
+
+L<https://stripe.com>, L<https://stripe.com/docs/api>
+
+=head1 AUTHORS
+
+Luke Closs
+
+=head1 LICENSE
+
+Net-Stripe is Copyright 2011 Prime Radiant, Inc.
+Net-Stripe is distributed under the same terms as Perl itself.
+
+=cut
+
+__PACKAGE__->meta->make_immutable;
+1;

lib/Net/Stripe/Resource.pm

@@ -34,6 +34,16 @@ around BUILDARGS => sub {
             $args{subscription} = Net::Stripe::Subscription->new($s);
         }
     }
+    if (my $s = $args{coupon}) {
+        if (ref($s) eq 'HASH') {
+            $args{coupon} = Net::Stripe::Coupon->new($s);
+        }
+    }
+    if (my $s = $args{discount}) {
+        if (ref($s) eq 'HASH') {
+            $args{discount} = Net::Stripe::Discount->new($s);
+        }
+    }
     if (my $p = $args{plan}) {
         if (ref($p) eq 'HASH') {
             $args{plan} = Net::Stripe::Plan->new($p);

t/live.t

@@ -371,6 +371,41 @@ Customers: {
             is $other_dsubs->status, 'active', 'subscription is still active';
             ok $other_dsubs->canceled_at, 'has canceled_at';
             ok !$other_dsubs->ended_at, 'does not have ended_at (not at period end yet)';
+
+            my $priceyplan = $stripe->post_plan(
+                id => "pricey-$future_ymdhms",
+                amount => 1000,
+                currency => 'usd',
+                interval => 'year',
+                name => "Priceyplan $future_ymdhms",
+            );
+            ok $priceyplan->id, 'priceyplan created';
+            my $coupon_id = "priceycoupon-$future_ymdhms";
+            my $coupon = $stripe->post_coupon(
+                id => $coupon_id,
+                percent_off => 100,
+                duration => 'once',
+                max_redemptions => 1,
+                redeem_by => time() + 100,
+            );
+            isa_ok $coupon, 'Net::Stripe::Coupon',
+                'I love it when a coupon pays for the first month';
+            is $coupon->id, $coupon_id, 'coupon id is the same';
+            $customer->coupon($coupon->id);
+            $stripe->post_customer($customer);
+            $customer = $stripe->get_customer($customer->id);
+            is $customer->discount->coupon->id, $coupon_id,
+              'got the coupon';
+            my $priceysubs = $stripe->post_subscription(
+                customer_id => $customer->id,
+                plan => $priceyplan->id,
+            );
+            isa_ok $priceysubs, 'Net::Stripe::Subscription',
+                'got a subscription back';
+            is $priceysubs->plan->id, $priceyplan->id;
+            $customer = $stripe->get_customer($customer->id);
+            is $customer->subscriptions->data->[0]->plan->id,
+              $priceyplan->id, 'subscribed without a creditcard';
         }
     }
 }