From 764873681685d9b5513f8441a26156557e3951b3 Mon Sep 17 00:00:00 2001
From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Tue, 23 Nov 2010 12:09:33 +0000
Subject: Add is_success method to Net/HTTP/Spore/Response.pm

---
 lib/Net/HTTP/Spore/Response.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Net/HTTP')

diff --git a/lib/Net/HTTP/Spore/Response.pm b/lib/Net/HTTP/Spore/Response.pm
index b667332..0696d2b 100644
--- a/lib/Net/HTTP/Spore/Response.pm
+++ b/lib/Net/HTTP/Spore/Response.pm
@@ -26,6 +26,7 @@ sub env            { shift->request->env }
 sub content_type   { shift->headers->content_type(@_) }
 sub content_length { shift->headers->content_length(@_) }
 sub location       { shift->header->header( 'Location' => @_ ) }
+sub is_success     { shift->status =~ /^2\d\d$/ }
 
 sub status {
     my $self = shift;
-- 
cgit 1.4.1