[p5sagit/p5-mst-13.2.git] / t / comp / decl.t

#!./perl

# check to see if subroutine declarations work everwhere

sub one {
    print "ok 1\n";
}
format one =
ok 5
.

print "1..7\n";

one();
two();

sub two {
    print "ok 2\n";
}
format two =
@<<<
$foo
.

if ($x eq $x) {
    sub three {
	print "ok 3\n";
    }
    three();
}

four();
$~ = 'one';
write;
$~ = 'two';
$foo = "ok 6";
write;
$~ = 'three';
write;

format three =
ok 7
.

sub four {
    print "ok 4\n";
}
Commit	Line	Data
8d063cd8	1	#!./perl
8d063cd8	2
8d063cd8	3	# check to see if subroutine declarations work everwhere
	4
	5	sub one {
	6	print "ok 1\n";
	7	}
	8	format one =
	9	ok 5
	10	.
	11
	12	print "1..7\n";
	13
065f14eb	14	one();
065f14eb	15	two();
8d063cd8	16
	17	sub two {
	18	print "ok 2\n";
	19	}
	20	format two =
	21	@<<<
	22	$foo
	23	.
	24
	25	if ($x eq $x) {
	26	sub three {
	27	print "ok 3\n";
	28	}
065f14eb	29	three();
8d063cd8	30	}
8d063cd8	31
065f14eb	32	four();
8d063cd8	33	$~ = 'one';
	34	write;
	35	$~ = 'two';
	36	$foo = "ok 6";
	37	write;
	38	$~ = 'three';
	39	write;
	40
	41	format three =
	42	ok 7
	43	.
	44
	45	sub four {
	46	print "ok 4\n";
	47	}