File Coverage

blib/lib/Net/Fastly/Customer.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition 0 3 0.0
subroutine 2 3 66.6
pod 1 1 100.0
total 9 15 60.0


line stmt bran cond sub pod time code
1             package Net::Fastly::Customer;
2              
3 4     4   24 use strict;
  4         6  
  4         94  
4 4     4   10 use base qw(Net::Fastly::Model);
  4         5  
  4         396  
5              
6             Net::Fastly::Customer->mk_accessors(qw(id name owner_id));
7              
8             =head1 NAME
9              
10             Net::Fastly::User - a representation of a user
11              
12             =head1 ACCESSORS
13              
14             =head2 id
15              
16             The id of this customer
17              
18             =head2 name
19              
20             The name of this customer
21              
22             =head2 owner_id
23              
24             The id of the user that owns this customer
25              
26             =cut
27              
28             =head1 METHODS
29              
30             =head2 owner
31              
32             The User object representing the owner of this customer.
33              
34             =cut
35             sub owner {
36 0     0 1   my $self = shift;
37 0   0       return $self->{_owner} ||= $self->_fetcher->_get("Net::Fastly::User", $self->owner_id);
38             }
39             1;