File Coverage

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