diff _test/temp.pl @ 86:52eeec77504b

TAP fixes
author wizard
date Mon, 19 Apr 2010 02:38:18 +0400
parents 74bae30eb25e
children 0667064553ef
line wrap: on
line diff
--- a/_test/temp.pl	Fri Apr 16 16:33:11 2010 +0400
+++ b/_test/temp.pl	Mon Apr 19 02:38:18 2010 +0400
@@ -1,7 +1,3 @@
 #!/usr/bin/perl
 
-my @data = (1,2,3);
-
-$data[4] = 4;
-
-print @data;
\ No newline at end of file
+warn join "\n", keys %{__PACKAGE__.'::'};
\ No newline at end of file