File Coverage

blib/lib/Net/Azure/NotificationHubs/Request.pm
Criterion Covered Total %
statement 35 36 97.2
branch 8 10 80.0
condition 2 2 100.0
subroutine 9 9 100.0
pod 2 3 66.6
total 56 60 93.3


line stmt bran cond sub pod time code
1             package Net::Azure::NotificationHubs::Request;
2 7     7   103834 use strict;
  7         26  
  7         152  
3 7     7   25 use warnings;
  7         11  
  7         137  
4            
5 7     7   2153 use Net::Azure::NotificationHubs::Response;
  7         19  
  7         173  
6 7     7   38 use Carp;
  7         12  
  7         276  
7 7     7   881 use URI;
  7         7108  
  7         207  
8            
9             use Class::Accessor::Lite (
10 7         45 new => 0,
11             rw => [qw[agent]],
12             ro => [qw[method uri headers content]],
13 7     7   34 );
  7         12  
14              
15             sub new {
16 9     9 1 24233 my ($class, $method, $uri, $headers, $content) = @_;
17 9 100 100     82 bless {
18             method => $method,
19             uri => ref($uri) =~ /\AURI::/ ? $uri : URI->new($uri),
20             headers => $headers || {},
21             content => $content,
22             }, $class;
23             }
24              
25             sub header {
26 18     18 0 7298 my ($self, $key, $value) = @_;
27 18 50       39 return $self->{headers} if !$key;
28 18 100       38 if (defined $value) {
29 4         6 $self->{headers}{$key} = $value;
30             }
31 18         62 return $self->{headers}{$key};
32             }
33            
34             sub do {
35 4     4 1 2443 my $self = shift;
36 4         20 my $options = {headers => $self->headers};
37 4 50       39 if ($self->content) {
38 0         0 $options->{content} = $self->content;
39             }
40              
41 4         31 my $res = $self->agent->request($self->method, $self->uri, $options);
42 4         2428616 my $status = delete $res->{status};
43 4         10 my $reason = delete $res->{reason};
44 4         11 my $headers = delete $res->{headers};
45 4         11 my $content = delete $res->{content};
46              
47 4 100       35 croak "$status $reason" if !$res->{success};
48              
49             Net::Azure::NotificationHubs::Response->new(
50             $status, $reason, $headers, $content, $res->{success}
51 3         34 );
52             }
53            
54             1;
55              
56             =encoding utf-8
57              
58             =head1 NAME
59              
60             Net::Azure::NotificationHubs::Request - A Request Class for Net::Azure::NotificationHubs
61              
62             =head1 SYNOPSIS
63              
64             use Net::Azure::NotificationHubs::Request;
65             use HTTP::Tiny;
66             my $req = Net::Azure::NotificationHubs::Request->new(GET => 'http://...');
67             $req->agent(HTTP::Tiny->new);
68             my $res = $req->do;
69              
70             =head1 DESCRIPTION
71              
72             Net::Azure::NotificationHubs::Request is a request class for Net::Azure::NotificationHubs.
73              
74             =head1 METHODS
75              
76             =head2 new
77              
78             A constructor method.
79              
80             =head2 agent
81              
82             my $agent = HTTP::Tiny->new(...);
83             $req->agent($agent);
84              
85             An accessor for setting/getting a HTTP::Tiny object
86              
87             =head2 do
88              
89             my $res = $req->do;
90              
91             Do itself as http/https request with agent. Then returns a response object.
92              
93             =head1 LICENSE
94              
95             Copyright (C) ytnobody.
96              
97             This library is free software; you can redistribute it and/or modify
98             it under the same terms as Perl itself.
99              
100             =head1 AUTHOR
101              
102             ytnobody Eytnobody@gmail.comE
103              
104             =cut