File Coverage

blib/lib/Test/InDomain.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	3	6	50.0
condition	3	4	75.0
subroutine	9	9	100.0
pod	2	2	100.0
total	51	55	92.7

package Test::InDomain;

use 5.010;
use strict;
use warnings;
use parent 'Test::Builder::Module';

use Data::Domain (); # empty list because import() is called explicitly below
use Scalar::Does;

our $VERSION = '0.01';

our @EXPORT = qw/in_domain not_in_domain/;

sub import {
  my ($class, @data_domain_import_args) = @_;

  # export functions in @EXPORT through Exporter
  $class->export_to_level(1, $class);

  # export Data::Domain functions; by default: :all, one level up
  unshift @data_domain_import_args, {}
    unless does($data_domain_import_args[0], 'HASH');
  $data_domain_import_args[0]{into_level} //= 1;
  $data_domain_import_args[1]             //= ':all';
  Data::Domain->import(@data_domain_import_args);
}


sub in_domain ($$;$) {
  my ($data, $domain, $name) = @_;

  my $err_msg      = $domain->inspect($data);
  my $test_builder = __PACKAGE__->builder;
  $test_builder->ok(!$err_msg, $name);
  $test_builder->diag($test_builder->explain($err_msg)) if $err_msg;
}

sub not_in_domain ($$;$$) {
  my ($data, $domain, $name, $want_explanation) = @_;

  my $err_msg      = $domain->inspect($data);
  my $test_builder = __PACKAGE__->builder;
  $test_builder->ok($err_msg, $name);
  $test_builder->note($test_builder->explain($err_msg)) if $want_explanation;
}

1; # End of Test::InDomain


__END__