Skip to content

Commit 89f8ca4

Browse files
committed
More example and documentation fixes
1 parent c30780c commit 89f8ca4

File tree

3 files changed

+17
-7
lines changed

3 files changed

+17
-7
lines changed

README.pod

Lines changed: 9 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -107,6 +107,8 @@ L<https://stripe.com/docs/api#create_charge>
107107

108108
Returns L<Net::Stripe::Charge>
109109

110+
$stripe->post_charge(currency => 'USD', amount => 500, customer => 'testcustomer');
111+
110112
=head2 get_charge
111113

112114
Retrieve a charge.
@@ -121,6 +123,8 @@ L<https://stripe.com/docs/api#retrieve_charge>
121123

122124
Returns L<Net::Stripe::Charge>
123125

126+
$stripe->get_charge(charge_id => 'chargeid');
127+
124128
=head2 refund_charge
125129

126130
Refunds a charge
@@ -137,6 +141,8 @@ L<https://stripe.com/docs/api#refund_charge>
137141

138142
Returns a new L<Net::Stripe::Charge>.
139143

144+
$stripe->refund_charge(charge => $charge, amount => 500);
145+
140146
=head2 get_charges
141147

142148
Return a list of charges based on criteria.
@@ -159,6 +165,8 @@ L<https://stripe.com/docs/api#list_charges>
159165

160166
Returns a list of L<Net::Stripe::Charge> objects.
161167

168+
$stripe->get_charges(customer => $customer, limit => 5);
169+
162170
=head1 Customer Methods
163171

164172
=head2 post_customer
@@ -841,8 +849,6 @@ Returns a list of L<Net::Stripe::Invoiceitem> objects
841849

842850
L<https://stripe.com>, L<https://stripe.com/docs/api>
843851

844-
=head1 CONTRIBUTORS
845-
846852
=head1 AUTHORS
847853

848854
=over 4
@@ -909,7 +915,7 @@ Tom Eliaz <[email protected]>
909915

910916
=head1 COPYRIGHT AND LICENSE
911917

912-
This software is copyright (c) 2011 by Prime Radiant, Inc., Copyright 2014 Lucky Dinosaur LLC..
918+
This software is copyright (c) 2011 by Prime Radiant, Inc., (c) copyright 2014 Lucky Dinosaur LLC..
913919

914920
This is free software; you can redistribute it and/or modify it under
915921
the same terms as the Perl 5 programming language system itself.

dist.ini

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -14,8 +14,6 @@ repo = lukec/stripe-perl
1414
first_version = 0.13
1515
[ContributorsFromGit]
1616
[PodWeaver]
17-
18-
1917
[ReadmeAnyFromPod / pod.root ]
2018
filename = README.pod
2119
type = pod

lib/Net/Stripe.pm

Lines changed: 8 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -110,6 +110,8 @@ L<https://stripe.com/docs/api#create_charge>
110110
111111
Returns L<Net::Stripe::Charge>
112112
113+
$stripe->post_charge(currency => 'USD', amount => 500, customer => 'testcustomer');
114+
113115
=charge_method get_charge
114116
115117
Retrieve a charge.
@@ -124,6 +126,8 @@ L<https://stripe.com/docs/api#retrieve_charge>
124126
125127
Returns L<Net::Stripe::Charge>
126128
129+
$stripe->get_charge(charge_id => 'chargeid');
130+
127131
=charge_method refund_charge
128132
129133
Refunds a charge
@@ -140,6 +144,8 @@ L<https://stripe.com/docs/api#refund_charge>
140144
141145
Returns a new L<Net::Stripe::Charge>.
142146
147+
$stripe->refund_charge(charge => $charge, amount => 500);
148+
143149
=charge_method get_charges
144150
145151
Return a list of charges based on criteria.
@@ -162,6 +168,8 @@ L<https://stripe.com/docs/api#list_charges>
162168
163169
Returns a list of L<Net::Stripe::Charge> objects.
164170
171+
$stripe->get_charges(customer => $customer, limit => 5);
172+
165173
=cut
166174

167175
Charges: {
@@ -1475,8 +1483,6 @@ method _build_ua {
14751483
14761484
L<https://stripe.com>, L<https://stripe.com/docs/api>
14771485
1478-
=head1 CONTRIBUTORS
1479-
14801486
=cut
14811487

14821488
__PACKAGE__->meta->make_immutable;

0 commit comments

Comments
 (0)