view release on metacpan or  search on metacpan

t/01-xtags.t  view on Meta::CPAN

#! /usr/bin/env perl
use strict;
use warnings;
no warnings 'once', 'redefine';
use Test::More;
use List::Util qw(pairs unpairs);
use Scalar::Util 'weaken';
use Data::Printer;

use Exporter::Handy::Util xtags => { -as => 'xtags_standard' };
use Exporter::Handy::Util xtags => { -as => 'xtags_prefixed',  sig => ':' };

sub test_deeply {
  my ($function, $params, $expected, $label) = @_;

  my @got = $function->(@{; $params // [] });