t/over.pl

   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" ;