Select Code to Download

  perl -we 'sub b { my $a; *b = \&c; b() } sub c { die "here" } b()'

  package NVC::DB::User;
  sub bless {
...
    }
    return $self->bless(@_);
  }