#!perl -d:SmallProf
$DB::drop_zeros = 1;
%DB::packages = ( 'main' => 1, 'A' => 0, 'C' => 1 );
$DB::profile = 0;
$x++; $x++;
$DB::profile = 1;
for (1..5) {
$z++;
$z--;
$z++; $z--;
}
sleep(1);
package A;
$a = 0;
sub test {
$a++;
}
eval q[
package B;
$b = 0;
sub test {
$b++;
}
];
eval q[
package C;
$c = 0;
sub test {
$c++;
}
];
A::test();
B::test();
C::test();
print "1..1\n"; # check above stuff in part2
sub dollar_test ($$$)
{
my ($one, $two, $three) = @_;
print(($one eq 'a' &&
$two eq 'b' &&
$three eq 'c') ? 'ok 1' : 'not ok 1',"\n");
}
my $line = 'abc';
$line =~ /(a)(b)(c)/;
dollar_test($1, $2, $3);