How to handle errors in Perl?

So, Can you show me a way how to handle the error when I use SoapLite in Perl. As I see, when I change line 15 to:

 my $returnGeck = $ssc-> saveGeck($geck, 'tolgar'); 

Open in new window


and do:

print Dumper $returnGeck;

Open in new window


it does not return anything. This means, save Geck cannot save it. So do you think there is some limitation on the size of the data that SOAP LITE can handle. Because, $geck is kind of big.

I also added this but it didn't return anything as well:
   

$ssc->_on_fault = 
sub { my($soap, $res) = @_; 
      die ref $res ? $res->faultstring : $soap->transport->status, "\n";

my $returnGeck = $ssc-> saveGeck($geck, 'tolgar'); 
  if(!$returnGeck){
   print $@;
  } else {
   print Dumper $returnGeck;
  }

Open in new window

TolgarAsked:
Who is Participating?
 
farzanjConnect With a Mentor Commented:
I recommend try ... catch kind of logic

http://perldesignpatterns.com/?TryCatch
0
 
TolgarAuthor Commented:
Thank you for your reply but I need something specific to SOAP LITE implementation in Perl.

Thanks,
0
 
TolgarAuthor Commented:
When I do:

print $returnGeck;

Open in new window


It returns:

$VAR1 = undef;

Open in new window


Do you think there is some restriction in the amount of data that Perl can process, because $geck is kind of big?

On the other hand, when I do the same process using SOAP UI it works totally fine. This means there is no problem in the Web Service. But there is definitely something wrong in Perl part.

Do you know what the limitation can be? And how can I solve it?

Thanks,
0
 
TolgarAuthor Commented:
Try catch is a general way of handling errors. I was looking for a special case for my implementation.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.