diff options
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | LinkPoint.pm | 10 |
2 files changed, 10 insertions, 1 deletions
@@ -1,6 +1,7 @@ Revision history for Perl extension Business::OnlinePayment::LinkPoint. 0.02 unreleased + - eliminate warnings about redefined subroutines - better URLs for linkpoint perl wrapper - don't spew debugging output by default diff --git a/LinkPoint.pm b/LinkPoint.pm index 88a8ac2..7b307ff 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.2 2002-02-26 08:24:00 ivan Exp $ +# $Id: LinkPoint.pm,v 1.3 2002-02-26 08:53:52 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -43,6 +43,14 @@ sub map_fields { $self->content(%content); } +sub build_subs { + my $self = shift; + foreach(@_) { + no warnings; + eval "sub $_ { my \$self = shift; if(\@_) { \$self->{$_} = shift; } return \$self->{$_}; }"; + } +} + sub remap_fields { my($self,%map) = @_; |