File Coverage

blib/lib/Net/Stripe/Coupon.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 18 66.6


line stmt bran cond sub pod time code
1             package Net::Stripe::Coupon;
2             $Net::Stripe::Coupon::VERSION = '0.40_005'; # TRIAL
3              
4 2     2   13 $Net::Stripe::Coupon::VERSION = '0.40005';use Moose;
  2         5  
  2         16  
5 2     2   12113 use Kavorka;
  2         4  
  2         17  
6             extends 'Net::Stripe::Resource';
7              
8             # ABSTRACT: represent a Coupon object from Stripe
9              
10             has 'id' => (is => 'rw', isa => 'Maybe[Str]');
11             has 'percent_off' => (is => 'rw', isa => 'Maybe[Int]', required => 1);
12             has 'duration' => (is => 'rw', isa => 'Maybe[Str]', required => 1);
13             has 'duration_in_months' => (is => 'rw', isa => 'Maybe[Int]');
14             has 'max_redemptions' => (is => 'rw', isa => 'Maybe[Int]');
15             has 'redeem_by' => (is => 'rw', isa => 'Maybe[Int]');
16             has 'metadata' => (is => 'ro', isa => 'Maybe[HashRef]');
17              
18 2 0   2   4169 method form_fields {
  2     0   6  
  2         266  
  0            
  0            
19 0           return $self->form_fields_for(
20             qw/id percent_off duration duration_in_months max_redemptions redeem_by
21             metadata/
22             );
23             }
24              
25             __PACKAGE__->meta->make_immutable;
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =head1 NAME
33              
34             Net::Stripe::Coupon - represent a Coupon object from Stripe
35              
36             =head1 VERSION
37              
38             version 0.40_005
39              
40             =head1 ATTRIBUTES
41              
42             =head2 boolean_attributes
43              
44             Reader: boolean_attributes
45              
46             Type: ArrayRef[Str]
47              
48             =head2 duration
49              
50             Reader: duration
51              
52             Writer: duration
53              
54             Type: Maybe[Str]
55              
56             This attribute is required.
57              
58             =head2 duration_in_months
59              
60             Reader: duration_in_months
61              
62             Writer: duration_in_months
63              
64             Type: Maybe[Int]
65              
66             =head2 id
67              
68             Reader: id
69              
70             Writer: id
71              
72             Type: Maybe[Str]
73              
74             =head2 max_redemptions
75              
76             Reader: max_redemptions
77              
78             Writer: max_redemptions
79              
80             Type: Maybe[Int]
81              
82             =head2 metadata
83              
84             Reader: metadata
85              
86             Type: Maybe[HashRef]
87              
88             =head2 percent_off
89              
90             Reader: percent_off
91              
92             Writer: percent_off
93              
94             Type: Maybe[Int]
95              
96             This attribute is required.
97              
98             =head2 redeem_by
99              
100             Reader: redeem_by
101              
102             Writer: redeem_by
103              
104             Type: Maybe[Int]
105              
106             =head1 AUTHORS
107              
108             =over 4
109              
110             =item *
111              
112             Luke Closs
113              
114             =item *
115              
116             Rusty Conover
117              
118             =back
119              
120             =head1 COPYRIGHT AND LICENSE
121              
122             This software is copyright (c) 2015 by Prime Radiant, Inc., (c) copyright 2014 Lucky Dinosaur LLC.
123              
124             This is free software; you can redistribute it and/or modify it under
125             the same terms as the Perl 5 programming language system itself.
126              
127             =cut