Re: Text Analysis: given(){when(){}} block throws a 'useless use of private variable...etc' error


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: Text Analysis: given(){when(){}} block throws a 'useless use of private variable...etc' error

by AnomalousMonk (Archbishop)

on Oct 18, 2010 at 17:25 UTC ( [id://865996]=note: print w/replies, xml )

Need Help??

in reply to Text Analysis: given(){when(){}} block throws a 'useless use of private variable...etc' error

>perl -wMstrict -lE
"my ($foo, $bar) = qw(FOO BAR);
 given ($foo) {
   when ($foo eq 'FOO') { print 'got a FOO'; }
   }
"
got a FOO

>perl -wMstrict -lE
"my ($foo, $bar) = qw(FOO BAR);
 given ($foo, $bar) {
   when ($foo eq 'FOO') { print 'got a FOO'; }
   }
"
Useless use of private variable in void context at...
got a FOO
[download]

See Switch statements in perlsyn.