in reply to Business::OnlinePayment sub redefined warnings
But maybe that's just MHO :-)foreach my $attrib (@_) { no strict 'refs'; *$attrib = sub { my $self = shift; $self->{$attrib} = shift if @_; return $self->{$attrib}; } unless defined &$attrib; }
Oh, and to answer your question, I think a lot of people just ignore warnings in their error logs :-)
|
|---|