package Bitcoin::Crypto::Transaction::Signer::P2WPKH;
$Bitcoin::Crypto::Transaction::Signer::P2WPKH::VERSION = '4.004';
use v5.14;
use warnings;

use Mooish::Base -standard;

use Bitcoin::Crypto qw(btc_script);
use Bitcoin::Crypto::Script::Common;
use Bitcoin::Crypto::Exception;
use Bitcoin::Crypto::Constants;
use Bitcoin::Crypto::Types -types;

extends 'Bitcoin::Crypto::Transaction::Signer::Segwit';

has extended 'script' => (
	lazy => 1,
	init_arg => undef,
);

with 'Bitcoin::Crypto::Transaction::Signer::Role::KeyHash';

sub _build_script
{
	my ($self) = @_;

	my $script = $self->transaction->inputs->[$self->signing_index]->utxo->output->locking_script;
	my $runner = $script->run;
	my ($version, $pkh) = @{$runner->stack};

	return Bitcoin::Crypto::Script::Common->new(PKH => $pkh);
}

1;

