File Coverage

blib/lib/Solana/SPLAddress.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	44	48	91.6

package Solana::SPLAddress;

use 5.034000;
use strict;
use warnings;

our $VERSION = '0.06';
use Carp qw(croak);
use constant PDA_MAKER => "ProgramDerivedAddress";
use Digest::SHA;

require XSLoader;
XSLoader::load('Solana::SPLAddress', $VERSION);

sub find_address {
    my ($seeds, $program_id) = @_;

    for my $bump ( reverse(0..255) ) {
        my $address = create_address($seeds, $bump, $program_id);
        if (defined $address) {
            return ($address, $bump);
        }
    }
    croak "Failed to generate SPL address";
}

sub create_address {
    my ($seeds, $bump, $program_id) = @_;
    my $sha = Digest::SHA->new(256);
    for my $seed (@$seeds) {
        $sha->add($seed);
    }
    $sha->add(pack("C", $bump));
    $sha->add($program_id);
    $sha->add(PDA_MAKER);

    my $hash = $sha->digest;
    if (!check_pub_address_is_ok($hash)) {
        return unpack('H*', $hash);
    }
    return undef;
}

1;
__END__