File Coverage

blib/lib/Net/Stripe/Invoiceitem.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 20 60.0


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