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