projects
/
p5sagit/Data-Dumper-Concise.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix parens and use eq_array
[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) ];