view release on metacpan or  search on metacpan

InternetSecure.pm  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
use constant CARD_TYPES => {
                                AM => 'American Express',
                                JB => 'JCB',
                                MC => 'MasterCard',
                                NN => 'Discover',
                                VI => 'Visa',
                        };
 
 
# Convenience functions to avoid undefs and escape products strings
sub _def($) { defined $_[0] ? $_[0] : '' }
sub _esc($) { local $_ = shift; tr/|:/ /s; tr/"`/'/s; return $_ }
 
 
sub set_defaults {
        my ($self) = @_;
 
        $self->server('secure.internetsecure.com');
        $self->port(443);
        $self->path('/process.cgi');
 
        $self->build_subs(qw(