Implement taproot address generation

cpanfile

@@ -8,7 +8,7 @@ requires 'Mooish::AttributeBuilder' => '1.001';
 requires 'Type::Tiny' => '2';
 requires 'List::Util' => '1.33';
 requires 'CryptX' => '0.074';
-requires 'Bitcoin::Secp256k1' => 0;
+requires 'Bitcoin::Secp256k1' => '0.003';
 requires 'Bitcoin::BIP39' => '0.002';
 requires 'namespace::clean' => '0.27';
 requires 'Try::Tiny' => 0;

lib/Bitcoin/Crypto/Key/Public.pm

@@ -13,7 +13,8 @@ use Bitcoin::Crypto::Base58 qw(encode_base58check);
 use Bitcoin::Crypto::Bech32 qw(encode_segwit);
 use Bitcoin::Crypto::Types -types;
 use Bitcoin::Crypto::Constants;
-use Bitcoin::Crypto::Util qw(hash160 get_public_key_compressed);
+use Bitcoin::Crypto::Util qw(hash160 get_public_key_compressed tagged_hash);
+use Bitcoin::Crypto::Helpers qw(ecc);
 
 use namespace::clean;
 
@@ -117,7 +118,11 @@ sub witness_program
 			shift->get_hash;
 		},
 		+Bitcoin::Crypto::Constants::taproot_witness_version => sub {
-			shift->raw_key('public_taproot');
+			my $self = shift;
+			my $internal = $self->raw_key('public_taproot');
+			my $tweaked = tagged_hash($internal, 'TapTweak');
+			my $combined = ecc->combine_public_keys(ecc->create_public_key($tweaked), "\02" . $internal);
+			return substr $combined, 1;
 		},
 	};
 

t/Taproot/BIP86.t

@@ -49,6 +49,7 @@ foreach my $case_ind (0 .. $#cases) {
 		is to_format [base58 => $key->get_public_key->to_serialized], $case->{xpub}, 'extended public key ok';
 
 		$key = $key->get_basic_key;
+
 		#is to_format [hex => $key->get_public_key->to_serialized], $case->{internal_key}, 'private key ok';
 		is $key->get_public_key->get_address, $case->{address}, 'address ok';
 	};

t/Util.t

@@ -296,7 +296,11 @@ subtest 'testing tagged_hash' => sub {
 	my $tag = 'ąść';
 
 	#is(tagged_hash($data, $tag), sha256(sha256(encode 'UTF-8', $tag) . sha256(encode 'UTF-8', $tag) . $data), 'tagged_hash ok');
-	is(tagged_hash($data, $tag), sha256(sha256(encode 'UTF-8', $tag) . sha256(encode 'UTF-8', $tag) . $data), 'tagged_hash ok');
+	is(
+		tagged_hash($data, $tag),
+		sha256(sha256(encode 'UTF-8', $tag) . sha256(encode 'UTF-8', $tag) . $data),
+		'tagged_hash ok'
+	);
 };
 
 done_testing;