projects
/
p5sagit/Data-Dumper-Concise.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0036042feef1028f91ba7c05a78e2e4d26ad022c
[p5sagit/Data-Dumper-Concise.git]
/
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) ];