Select Code to Download

# added some debug output
*DB::Handle::RapTTR::Test::real_new = \&DB::Handle::RapTTR::Test::new;
*DB::Handle::RapTTR::Test::new =
...
          password => undef
      );
  };

TRACE: at t/comprehensive_3digbn_8digtid.t line 54
        main::__ANON__('DB::Handle::RapTTR::Test') called at t/compreh
+ensive_3digbn_8digtid.t line 50
        main::__ANON__('DB::Handle::RapTTR::Test') called at /nfs/pdx/
+disks/nehalem.pde.077/projects/2.0_rapttr/RapTTR/blib/lib/RapTTR.pm l
+ine 688
...
        RapTTR::harness('RapTTR=HASH(0x26931a0)') called at t/comprehe
+nsive_3digbn_8digtid.t line 63
# Looks like you planned 24 tests but ran 2.
# Looks like your test exited with 2 just after 2.

prepare failed with DBI error (1):no such table: pcf_master
 at /nfs/pdx/disks/nehalem.pde.077/perl/5.12.2/lib64/site_perl/DB/SQL/
+Query.pm line 114

main::__ANON__('DB::Handle::RapTTR::Test') called at t/comprehensive_3
+digbn_8digtid.t line 50
        main::__ANON__('DB::Handle::RapTTR::Test') called at /nfs/pdx/
+disks/nehalem.pde.077/projects/2.0_rapttr/RapTTR/blib/lib/RapTTR.pm l
+ine 688

use strict;
use warnings;

...
I am bar from Foo.
 # output from original sub after being redefined back
I am bar from Foo.

#! /usr/intel/pkgs/perl/5.12.2/bin/perl
use strict;
use warnings;
...

$obj = Foo->new;
print STDERR __PACKAGE__.": FOO IS (".ref($obj).")\n";