WWW: chyba

[Jan ' Kozo ' Vajda]

:> pouzivam konstrukci jako
:> 
:>     use LWP::UserAgent;
:>     $request = HTTP::Request->new('GET', 'http://search.cpan.org/');
:>     $response = $ua->request($request, '/tmp/sss');
:> 
:> 
:> Pomoci
:> 
:>     $response->is_success()
:> 
:> zjistim, ze byl pozadavek uspesne vyrizen ci ne. Jak ale zjistim, co
:> nastalo za chybu, kdyz je $response->is_success() FALSE?


priamo citacia z man HTTP::Response

      if ($response->is_success) {
          print $response->content;
      } else {
          print $response->error_as_HTML;
      }


		                                   K O Z O 
                		    ===================================
                                      Look At Your Young Man Fighting
                                         Look At Your Woman Crying
                                       Look At Your Young Man Dying
                                    The Way They've Always Done Before