Changeset 9820d55 for perl/modules/Facebook/lib/Facebook/Graph/Response.pm
- Timestamp:
- Sep 19, 2011, 1:31:35 PM (13 years ago)
- Children:
- c104b43
- Parents:
- cfca761
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (07/12/11 09:17:04)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/Facebook/Graph/Response.pm
rcfca761 r9820d55 13 13 ); 14 14 15 has headers => ( 16 is => 'ro', 17 required=> 1, 18 ); 19 20 has uri => ( 21 is => 'ro', 22 required=> 1, 23 ); 24 15 25 has as_string => ( 16 26 is => 'ro', … … 18 28 default => sub { 19 29 my $self = shift; 20 return $self->response->content; 30 if (!defined $self->response) { 31 ouch $self->headers->{Status}, $self->headers->{Reason}, $self->uri; 32 } 33 if ($self->headers->{Status} < 200 || $self->headers->{Status} >= 300) { 34 my $type = $self->headers->{Status}; 35 my $message = $self->response; 36 my $error = eval { JSON->new->decode($self->response) }; 37 unless ($@) { 38 $type = $error->{error}{type}; 39 $message = $error->{error}{message}; 40 } 41 ouch $type, 'Could not execute request ('.$self->uri.'): '.$message, $self->uri; 42 } 43 return $self->response; 21 44 }, 22 45 ); … … 27 50 default => sub { 28 51 my $self = shift; 29 my $response = $self->response; 30 if ($response->is_success) { 31 return $response->content; 32 } 33 else { 34 my $message = $response->message; 35 my $error = eval { JSON->new->decode($response->content) }; 36 unless ($@) { 37 $message = $error->{error}{type} . ' - ' . $error->{error}{message}; 38 } 39 ouch $response->code, 'Could not execute request ('.$response->request->uri->as_string.'): '.$message, $response->request->uri->as_string; 40 } 52 return $self->as_string; 41 53 }, 42 54 );
Note: See TracChangeset
for help on using the changeset viewer.