[urisagit/Perl-Docs.git] / t / over.pl


print prototype( 'CORE::sysread' ), "\n" ;

BEGIN {

  *CORE::GLOBAL::time = sub { CORE::time };
}

print time(), "\n" ;

BEGIN{
local *CORE::GLOBAL::time = sub { 123 };

print time(), "\n" ;
}

print time(), "\n" ;
Commit	Line	Data
8ed110f9	1
	2	print prototype( 'CORE::sysread' ), "\n" ;
	3
	4	BEGIN {
	5
	6	*CORE::GLOBAL::time = sub { CORE::time };
	7	}
	8
	9	print time(), "\n" ;
	10
	11	BEGIN{
	12	local *CORE::GLOBAL::time = sub { 123 };
	13
	14	print time(), "\n" ;
	15	}
	16
	17	print time(), "\n" ;