File Coverage

blib/lib/Result/Ok.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	10	14	71.4
condition			n/a
subroutine	12	13	92.3
pod	0	5	0.0
total	55	66	83.3

use 5.014;
use strict;
use warnings;

use Result::Trait ();

package Result::Ok;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.004';

use Role::Tiny::With;
with 'Result::Trait';

'overload'->import( 'Result::Trait'->__OVERLOAD_ARGS__( 'ok', '_peek' ) );

sub new {
	my $class = shift;

	bless [ !!0, [ @_ ] ], $class;
}

sub _handled {
	@_ == 1
		? $_[0][0]
		: ( $_[0][0] = $_[1] );
}

sub _peek {
	my ( $self ) = @_;
	wantarray
		? @{ $self->[1] }
		: $self->[1][-1];
}

sub _peek_err {
	die;
}

sub is_err {
	@_ == 1
		or Carp::croak( 'Usage: $result->is_err()' );

	!!0;
}

sub is_ok {
	@_ == 1
		or Carp::croak('Usage: $result->is_ok()');

	!!1;
}

sub unwrap {
	my ( $self ) = @_;
	@_ == 1
		or Carp::croak( 'Usage: $result->unwrap()' );

	$self->[0] = !!1;

	wantarray
		? @{ $self->[1] }
		: $self->[1][-1];
}

sub unwrap_err {
	my ( $self ) = @_;
	@_ == 1
		or Carp::croak( 'Usage: $result->unwrap_err()' );

	$self->[0] = !!1;

	Carp::croak( $self->unwrap() );
}

1;

__END__