File Coverage

blib/lib/PayProp/API/Public/Client.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package PayProp::API::Public::Client;
2              
3 2     2   120365 use strict;
  2         4  
  2         65  
4 2     2   9 use warnings;
  2         4  
  2         99  
5              
6 2     2   528 use Mouse;
  2         34041  
  2         27  
7             with qw/ PayProp::API::Public::Client::Role::Attribute::UA /;
8             with qw/ PayProp::API::Public::Client::Role::Attribute::Domain /;
9             with qw/ PayProp::API::Public::Client::Role::Attribute::Authorization /;
10              
11             # ABSTRACT: PayProp API Public Client
12             our $VERSION = '0.04';
13              
14             has export => (
15             is => 'ro',
16             isa => 'PayProp::API::Public::Client::Request::Export',
17             lazy => 1,
18             default => sub {
19             my ( $self ) = @_;
20              
21             require PayProp::API::Public::Client::Request::Export;
22             return PayProp::API::Public::Client::Request::Export->new(
23             ua => $self->ua,
24             domain => $self->domain,
25             scheme => $self->scheme,
26             authorization => $self->authorization,
27             );
28             }
29             );
30              
31             has entity => (
32             is => 'ro',
33             isa => 'PayProp::API::Public::Client::Request::Entity',
34             lazy => 1,
35             default => sub {
36             my ( $self ) = @_;
37              
38             require PayProp::API::Public::Client::Request::Entity;
39             return PayProp::API::Public::Client::Request::Entity->new(
40             ua => $self->ua,
41             domain => $self->domain,
42             scheme => $self->scheme,
43             authorization => $self->authorization,
44             );
45             }
46             );
47              
48             has tags => (
49             is => 'ro',
50             isa => 'PayProp::API::Public::Client::Request::Tags',
51             lazy => 1,
52             default => sub {
53             my ( $self ) = @_;
54              
55             require PayProp::API::Public::Client::Request::Tags;
56             return PayProp::API::Public::Client::Request::Tags->new(
57             ua => $self->ua,
58             domain => $self->domain,
59             scheme => $self->scheme,
60             authorization => $self->authorization,
61             );
62             }
63             );
64              
65             __PACKAGE__->meta->make_immutable;
66              
67             __END__