File Coverage

blib/lib/Business/GoCardless/Customer.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package Business::GoCardless::Customer;
2              
3             =head1 NAME
4              
5             Business::GoCardless::Customer
6              
7             =head1 DESCRIPTION
8              
9             A class for a gocardless user, extends L
10              
11             =cut
12              
13 3     3   688 use strict;
  3         9  
  3         121  
14 3     3   21 use warnings;
  3         5  
  3         80  
15              
16 3     3   17 use Moo;
  3         7  
  3         19  
17             extends 'Business::GoCardless::Resource';
18              
19             =head1 ATTRIBUTES
20              
21             created_at
22             email
23             id
24             given_name
25             family_name
26             address_line1
27             address_line2
28             address_line3
29             city
30             region
31             postal_code
32             country_code
33             language
34             swedish_identity_number
35             metadata
36              
37             =cut
38              
39             has [ qw/
40             created_at
41             email
42             id
43             given_name
44             family_name
45             address_line1
46             address_line2
47             address_line3
48             city
49             region
50             postal_code
51             country_code
52             language
53             swedish_identity_number
54             metadata
55             / ] => (
56             is => 'rw',
57             );
58              
59             # BACK COMPATIBILITY METHODS
60 1     1 0 1849 sub first_name { shift->given_name; }
61 1     1 0 7 sub last_name { shift->family_name; }
62              
63             =head1 AUTHOR
64              
65             Lee Johnson - C
66              
67             This library is free software; you can redistribute it and/or modify it under
68             the same terms as Perl itself. If you would like to contribute documentation,
69             features, bug fixes, or anything else then please raise an issue / pull request:
70              
71             https://github.com/Humanstate/business-gocardless
72              
73             =cut
74              
75             1;
76              
77             # vim: ts=4:sw=4:et