view release on metacpan or  search on metacpan

lib/Bitcoin/Crypto/Script/Common.pm  view on Meta::CPAN

package Bitcoin::Crypto::Script::Common;
$Bitcoin::Crypto::Script::Common::VERSION = '4.003';
use v5.14;
use warnings;

use namespace::autoclean;

use Bitcoin::Crypto qw(btc_script btc_tapscript);
use Bitcoin::Crypto::Types -types;
use Bitcoin::Crypto::Exception;

sub _make_PKH
{
	my ($class, $script, $hash) = @_;
	$script //= btc_script->new;

lib/Bitcoin/Crypto/Secret.pm  view on Meta::CPAN

package Bitcoin::Crypto::Secret;
$Bitcoin::Crypto::Secret::VERSION = '4.003';
use v5.14;
use warnings;

use Scalar::Util qw(refaddr);

use namespace::autoclean;

use overload
	q{""} => "as_string",
	fallback => 1;

my %secrets;

my $store_secret = sub {
	my ($obj, $secret) = @_;