Updated to use _get_route instead of constructing the URL's manually.

Jack M · Jack M · commit 64f32d71d4fc · 2014-09-30T11:06:17.000-07:00
diff --git a/lib/WWW/Mailgun.pm b/lib/WWW/Mailgun.pm
@@ -84,7 +84,7 @@ sub send {
         }
     }
 
-    my $r = $self->{ua}->post($self->{url}.'messages',Content_Type => 'multipart/form-data', Content => $content);
+    my $r = $self->{ua}->post(_get_route($self, ['messages']),Content_Type => 'multipart/form-data', Content => $content);
 
     _handle_response($r);
 
@@ -131,23 +131,23 @@ sub bounces {
 sub stats {
     my $self = shift;
 
-    my $r = $self->{ua}->get($self->{url}.'stats');
+    my $r = $self->{ua}->get(_get_route($self, ['stats']));
     _handle_response($r);
     return from_json($r->decoded_content);
 }
 
 sub logs {
     my $self = shift;
 
-    my $r = $self->{ua}->get($self->{url}.'log');
+    my $r = $self->{ua}->get(_get_route($self, ['log']));
     _handle_response($r);
     return from_json($r->decoded_content);
 }
 
 sub mailboxes {
     my $self = shift;
 
-    my $r = $self->{ua}->get($self->{url}.'mailboxes');
+    my $r = $self->{ua}->get(_get_route($self, ['mailboxes']));
     _handle_response($r);
     return from_json($r->decoded_content);
 }

Original file line number	Diff line number	Diff line change
`@@ -84,7 +84,7 @@ sub send {`
`84`	`84`	`}`
`85`	`85`	`}`
`86`	`86`
`87`		`- my $r = $self->{ua}->post($self->{url}.'messages',Content_Type => 'multipart/form-data', Content => $content);`
	`87`	`+ my $r = $self->{ua}->post(_get_route($self, ['messages']),Content_Type => 'multipart/form-data', Content => $content);`
`88`	`88`
`89`	`89`	`_handle_response($r);`
`90`	`90`
`@@ -131,23 +131,23 @@ sub bounces {`
`131`	`131`	`sub stats {`
`132`	`132`	`my $self = shift;`
`133`	`133`
`134`		`- my $r = $self->{ua}->get($self->{url}.'stats');`
	`134`	`+ my $r = $self->{ua}->get(_get_route($self, ['stats']));`
`135`	`135`	`_handle_response($r);`
`136`	`136`	`return from_json($r->decoded_content);`
`137`	`137`	`}`
`138`	`138`
`139`	`139`	`sub logs {`
`140`	`140`	`my $self = shift;`
`141`	`141`
`142`		`- my $r = $self->{ua}->get($self->{url}.'log');`
	`142`	`+ my $r = $self->{ua}->get(_get_route($self, ['log']));`
`143`	`143`	`_handle_response($r);`
`144`	`144`	`return from_json($r->decoded_content);`
`145`	`145`	`}`
`146`	`146`
`147`	`147`	`sub mailboxes {`
`148`	`148`	`my $self = shift;`
`149`	`149`
`150`		`- my $r = $self->{ua}->get($self->{url}.'mailboxes');`
	`150`	`+ my $r = $self->{ua}->get(_get_route($self, ['mailboxes']));`
`151`	`151`	`_handle_response($r);`
`152`	`152`	`return from_json($r->decoded_content);`
`153`	`153`	`}`