view release on metacpan or  search on metacpan

t/show.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 12;

BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

BEGIN { use_ok "Debug::Show", qw(debug=show); }

sub warning_from(&) {
	my @w;
	local $SIG{__WARN__} = sub { push @w, $_[0] };
	$_[0]->();
	return @w == 0 ? "??? no warning\n" : @w == 1 ? $w[0] :
		"??? @{[scalar(@w)]} warnings\n";
}

is warning_from { debug; }, "###\n";

sub quux { [$_[0],"a"] }