File Coverage

blib/lib/results.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	8	62.5
condition	2	3	66.6
subroutine	11	11	100.0
pod	4	4	100.0
total	49	53	92.4

use 5.014;
use strict;
use warnings;

use Carp ();
use Scalar::Util ();

package results;

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

use Exporter::Shiny qw( err is_result ok ok_list );
our @EXPORT = qw( err ok );

require Result::Err;
require Result::Ok;
require Result::OkList;

use constant {
	ERR_CLASS     => 'Result::Err',
	OK_CLASS      => 'Result::Ok',
	OK_LIST_CLASS => 'Result::OkList',
};

sub err {
	Carp::croak("Void context forbidden here") unless defined wantarray;
	ERR_CLASS->new( @_ );
}

sub is_result {
	Scalar::Util::blessed( $_[0] )
		and $_[0]->can( 'DOES' )
		and $_[0]->DOES( 'Result::Trait' )
}

sub ok {
	Carp::croak("Void context forbidden here") unless defined wantarray;
	OK_CLASS->new( @_ );
}

sub ok_list {
	Carp::croak("Void context forbidden here") unless defined wantarray;
	OK_LIST_CLASS->new( @_ );
}

1;

__END__