view release on metacpan or  search on metacpan

lib/Business/GestPayCrypt.pm  view on Meta::CPAN

    );
#    my $method = $GestPayCrypt::AUTOLOAD;          # add comment 0.40
    my $method = $Business::GestPayCrypt::AUTOLOAD; # add 0.40
    $method =~ /::(Get|Set)(.*)$/;
    if ( $1 eq 'Get' && ( $permission{$2} eq 'g' || $permission{$2} eq 'gs' )  ) {
        return $self->{$2};
    } elsif ( $1 eq 'Set' && ( $permission{$2} eq 's' || $permission{$2} eq 'gs' ) ) {
        $self->{$2} = $value;
        return;
    } else {
        my ($package,$filename,$line) = caller(); # add 0.40
        die "The method $method don't exists at $filename line $line\n";
    }
}

# add 0.30
sub SetWithoutEncryption {
    my $self = shift;
    $self->{'Encryption'} = 0;
    return;
}