t/dwarn_only.t

   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) ];