% < perl5.20.2 > -dwe0 

main::(-e:1):	0 
  DB<1> b File::Temp->new 
Subroutine File::Temp not found. 

  DB<2> b postpone File::Temp::new 
  DB<3> use File::Temp 
  DB<4> x File::Temp->new 
0  File::Temp=GLOB(0x283db48) 
   -> *File::Temp::$fh 
         FileHandle({*File::Temp::$fh}) => fileno(3) 
 

##</code><code>##


  DB<5> b postpone File::Temp::new 
  DB<6> x File::Temp->new 
0  File::Temp=GLOB(0x216aa78) 
   -> *File::Temp::$fh 
         FileHandle({*File::Temp::$fh}) => fileno(3) 

 

##</code><code>##


  DB<7> B * 
Deleting all breakpoints... 
  DB<8> b postpone File::Temp::new 
  DB<9> x File::Temp->new 
0  File::Temp=GLOB(0x216abc8) 
   -> *File::Temp::$fh 
         FileHandle({*File::Temp::$fh}) => fileno(3) 

 

##</code><code>##


  DB<10> b File::Temp::new 
  DB<11> x File::Temp->new 
File::Temp::new(/.../lib/5.20.2/File/Temp.pm:885): 
885:	  my $proto = shift; 
  DB<<12>> c 
0  File::Temp=GLOB(0x216aeb0) 
   -> *File::Temp::$fh 
         FileHandle({*File::Temp::$fh}) => fileno(3)