checks for empty answers made a bit more concise

st3vil · Dec 4, 2011 · 9aa68f6 · 9aa68f6
1 parent d2b9541
commit 9aa68f6
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/Net/LastFMAPI.pm b/lib/Net/LastFMAPI.pm
@@ -318,10 +318,8 @@ sub extract_rows {
     my @data_keys = sort keys %{$main_data};
     unless (@main_keys == 1 && @data_keys == 2 && $data_keys[0] eq '@attr') {
         carp "extracting rows may be broken";
-        if (defined $main_data->{'#text'} && $main_data->{'#text'} =~ /^\s+$/
+        my ( $text, $total ) = ( $main_data->{'#text'}, $main_data->{total} );
-            && defined $main_data->{total} && $main_data->{total} == 0) { # no rows
+        return if defined $text && $text =~ /^\s+$/ && defined $total && $total == 0; # no rows
-            return ();
-        };
     }
     %last_response_meta = %{ $main_data->{$data_keys[0]} };
     my $rows = $main_data->{$data_keys[1]};