comparison _test/temp.pl @ 86:52eeec77504b

TAP fixes
author wizard
date Mon, 19 Apr 2010 02:38:18 +0400
parents 74bae30eb25e
children 0667064553ef
comparison
equal deleted inserted replaced
85:190c794a41ae 86:52eeec77504b
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 2
3 my @data = (1,2,3); 3 warn join "\n", keys %{__PACKAGE__.'::'};
4
5 $data[4] = 4;
6
7 print @data;