File Coverage

lib/Net/API/Stripe/Address.pm
Criterion Covered Total %
statement 22 29 75.8
branch n/a
condition n/a
subroutine 8 15 53.3
pod 6 7 85.7
total 36 51 70.5


line stmt bran cond sub pod time code
1             ##----------------------------------------------------------------------------
2             ## Stripe API - ~/lib/Net/API/Stripe/Address.pm
3             ## Version v0.100.0
4             ## Copyright(c) 2020 DEGUEST Pte. Ltd.
5             ## Author: Jacques Deguest <jack@deguest.jp>
6             ## Created 2019/11/02
7             ## Modified 2020/05/15
8             ##
9             ##----------------------------------------------------------------------------
10             package Net::API::Stripe::Address;
11             BEGIN
12             {
13 4     4   21158916 use strict;
  4         20  
  4         146  
14 4     4   32 use warnings;
  4         7  
  4         135  
15 4     4   32 use parent qw( Net::API::Stripe::Generic );
  4         12  
  4         33  
16 4     4   301 use vars qw( $VERSION );
  4         9  
  4         303  
17 4     4   77 our( $VERSION ) = 'v0.100.0';
18             };
19              
20 4     4   26 use strict;
  4         7  
  4         79  
21 4     4   20 use warnings;
  4         9  
  4         652  
22              
23 0     0 1   sub city { return( shift->_set_get_scalar( 'city', @_ ) ); }
24              
25 0     0 1   sub country { return( shift->_set_get_scalar( 'country', @_ ) ); }
26              
27 0     0 1   sub line1 { return( shift->_set_get_scalar( 'line1', @_ ) ); }
28              
29 0     0 1   sub line2 { return( shift->_set_get_scalar( 'line2', @_ ) ); }
30              
31 0     0 1   sub postal_code { return( shift->_set_get_scalar( 'postal_code', @_ ) ); }
32              
33 0     0 1   sub state { return( shift->_set_get_scalar( 'state', @_ ) ); }
34              
35 0     0 0   sub town { return( shift->_set_get_scalar( 'town', @_ ) ); }
36              
37             {
38 4     4   26 no warnings 'once';
  4         7  
  4         319  
39             *zip_code = \&postal_code;
40             }
41              
42             1;
43              
44             __END__
45              
46             =encoding utf8
47              
48             =head1 NAME
49              
50             Net::API::Stripe::Address - A Stripe Address Object
51              
52             =head1 SYNOPSIS
53              
54             my $addr = $stripe->address({
55             line1 => '1-2-3 Kudan-minami, Chiyoda-ku',
56             line2 => 'Big Bldg 12F',
57             city => 'Tokyo',
58             postal_code => '123-4567',
59             country => 'jp',
60             });
61              
62             =head1 VERSION
63              
64             v0.100.0
65              
66             =head1 DESCRIPTION
67              
68             This is an Address module used everywhere in Stripe API.
69              
70             =head1 CONSTRUCTOR
71              
72             =head2 new( %ARG )
73              
74             Creates a new L<Net::API::Stripe::Address> object.
75             It may also take an hash like arguments, that also are method of the same name.
76              
77             =head1 METHODS
78              
79             =head2 city string
80              
81             City/District/Suburb/Town/Village.
82              
83             =head2 country string
84              
85             2-letter country code.
86              
87             =head2 line1 string
88              
89             Address line 1 (Street address/PO Box/Company name).
90              
91             =head2 line2 string
92              
93             Address line 2 (Apartment/Suite/Unit/Building).
94              
95             =head2 postal_code string
96              
97             ZIP or postal code.
98              
99             =head2 state string
100              
101             State/County/Province/Region.
102              
103             =head1 HISTORY
104              
105             =head2 v0.1
106              
107             Initial version
108              
109             =head1 AUTHOR
110              
111             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
112              
113             =head1 SEE ALSO
114              
115             Stripe API documentation:
116              
117             L<https://stripe.com/docs/api>
118              
119             =head1 COPYRIGHT & LICENSE
120              
121             Copyright (c) 2019-2020 DEGUEST Pte. Ltd.
122              
123             You can use, copy, modify and redistribute this package and associated
124             files under the same terms as Perl itself.
125              
126             =cut