File Coverage

blib/lib/Bitcoin/Crypto/Role/Compressed.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	27	27	100.0

package Bitcoin::Crypto::Role::Compressed;
$Bitcoin::Crypto::Role::Compressed::VERSION = '2.000_01'; # TRIAL
$Bitcoin::Crypto::Role::Compressed::VERSION = '2.00001';
use v5.10;
use strict;
use warnings;
use Mooish::AttributeBuilder -standard;
use Type::Params -sigs;

use Bitcoin::Crypto::Types qw(Object Bool);
use Moo::Role;

has param 'compressed' => (
	coerce => Bool,
	default => !!1,
	writer => -hidden,
);

signature_for set_compressed => (
	method => Object,
	positional => [Bool, {default => !!1}],
);

sub set_compressed
{
	my ($self, $state) = @_;

	$self->_set_compressed($state);
	return $self;
}

1;