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