[p5sagit/Data-Dumper-Concise.git] / t / dwarn_only.t

use strict;
use warnings FATAL => 'all';
use Test::More qw(no_plan);

use Devel::Dwarn qw(Dwarn_only DwarnS_only);

warn Dwarn_only { $_[0] } qw(one two three);

warn DwarnS_only { $_->[0] } [ qw(one two three) ];
Commit	Line	Data
d776e434	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More qw(no_plan);
	4
	5	use Devel::Dwarn qw(Dwarn_only DwarnS_only);
	6
	7	warn Dwarn_only { $_[0] } qw(one two three);
	8
	9	warn DwarnS_only { $_->[0] } [ qw(one two three) ];