diff options
Diffstat (limited to 'lib/Net/HTTP')
-rw-r--r-- | lib/Net/HTTP/Spore/Response.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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; |