X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;f=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FVariables%2FProhibitUnusedVariables.run;fp=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FVariables%2FProhibitUnusedVariables.run;h=0000000000000000000000000000000000000000;hb=a97c961991a9ede4148ca4744df94a7641e614f8;hp=52825d1a6584f64a8defb83eb5da0194ce4bcffd;hpb=9235c81891f90483b524a2ccb1f8c15689c8dfd3;p=pkg-perl diff --git a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitUnusedVariables.run b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitUnusedVariables.run deleted file mode 100644 index 52825d1..0000000 --- a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitUnusedVariables.run +++ /dev/null @@ -1,132 +0,0 @@ -## name Simple unused, single, unassigned lexical. -## failures 1 -## cut - -my $x; - -#----------------------------------------------------------------------------- - -## name Simple unused, multiple, unassigned lexicals. -## failures 3 -## cut - -my ($x, @z, %y); - -#----------------------------------------------------------------------------- - -## name Simple unused assigned lexicals. Not going to handle this yet. -## failures 0 -## cut - -# Need to look out for RAII. -my $y = foo(); - -#----------------------------------------------------------------------------- - -## name List assignment. Not going to handle this yet. -## failures 0 -## cut - -sub foo { - my ($b, $y) = @_; -} - -#----------------------------------------------------------------------------- - -## name Simple unused explicit global. -## failures 0 -## cut - -our $x; - -#----------------------------------------------------------------------------- - -## name Simple unused implicit global. -## failures 0 -## cut - -$x; - -#----------------------------------------------------------------------------- - -## name Simple unused localized. -## failures 0 -## cut - -local $x; - -#----------------------------------------------------------------------------- - -## name Simple used lexical scalar. -## failures 0 -## cut - -my $x = 1; - -print $x; - -#----------------------------------------------------------------------------- - -## name Simple used lexical array. -## failures 0 -## cut - -my @x; - -$x[0] = 5; - -#----------------------------------------------------------------------------- - -## name Simple used lexical hash. -## failures 0 -## cut - -my %foo; - -$foo{bar} = -24; - -#----------------------------------------------------------------------------- - -## name Shadowed variable. No going to handle this yet. -## failures 0 -## cut - -my $x = 2; - -{ - my $x = 1; - blah(); -} - -#----------------------------------------------------------------------------- - -## name Separate lexicals. No going to handle this yet. -## failures 0 -## cut - -{ - my $x = 2; -} - -{ - my $x = 1; - blah(); -} - -#----------------------------------------------------------------------------- - -############################################################################## -# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitUnusedVariables.run $ -# $Date: 2008-06-07 21:31:50 -0500 (Sat, 07 Jun 2008) $ -# $Author: clonezone $ -# $Revision: 2421 $ -############################################################################## - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 78 -# indent-tabs-mode: nil -# c-indentation-style: bsd -# End: -# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :