[p5sagit/p5-mst-13.2.git] / ext / Devel-DProf / dprof / test5_t

# Test that dprof doesn't break
#    &bar;  used as &bar(@_);

sub foo1 {
	print "in foo1(@_)\n";
	bar(@_);
}
sub foo2 {
	print "in foo2(@_)\n";
	&bar;
}
sub bar {
	print "in bar(@_)\n";
	if( @_ > 0 ){
		&yeppers;
	}
}
sub yeppers {
	print "rest easy\n";
}


&foo1( A );
&foo2( B );
Commit	Line	Data
583a019e	1	# Test that dprof doesn't break
	2	# &bar; used as &bar(@_);
	3
	4	sub foo1 {
	5	print "in foo1(@_)\n";
	6	bar(@_);
	7	}
	8	sub foo2 {
	9	print "in foo2(@_)\n";
	10	&bar;
	11	}
	12	sub bar {
	13	print "in bar(@_)\n";
	14	if( @_ > 0 ){
	15	&yeppers;
	16	}
	17	}
	18	sub yeppers {
	19	print "rest easy\n";
	20	}
	21
	22
	23	&foo1( A );
	24	&foo2( B );
	25