eliminate warnings about redefined subroutes

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index bace43c..246066e 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -122,6 +122,7 @@ sub dump_contents {
 # AutoLoader::AUTOLOAD, instead of passing up the chain
 sub build_subs {
     my $self = shift;
+    no warnings 'redefine';
     foreach(@_) {
         eval "sub $_ { my \$self = shift; if(\@_) { \$self->{$_} = shift; } return \$self->{$_}; }";
     }