I have typed this at initial part of the code...
sub new { my ($class) = @_; #my ($proto) = @_; #to make the constructor both class and object method #my $class = ref($proto) || $proto; my $self = { #attributes of object _id => undef, _user_scenario => undef, _result_type => undef, _result_log_link => undef, _not_exposed_reason => undef, _error_excerpt => undef, _triage => undef, }; bless $self, $class; return $self; }
then I wrote sub error_excerpt.For general output also I am not getting error_excerpt if there is any when I used
sub error_excerpt{ return defined($error_excerpt)?$self->{_error_excerpt}:"No Error Excer +pt."; }
Is there anything missing? I have used use strict and use warnings as well.Where I am doing mistake?
In reply to Re^2: Question on XML output using Perl
by siddheshsawant
in thread Question on XML output using Perl
by siddheshsawant
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |