bin/.perldb.hist

   1 \@main::INC
   2 EOT
   3 my $subref = \&dumpvar_epic::dump_array_expr;
   4 my $savout = CORE::select($DB::OUT);
   5 my $savbuf = $|;
   6 $| = 0;
   7 $subref->($offset, $varexpr);
   8 $| = $savbuf;
   9 print "";
  10 CORE::select($savout);
  11 };
  12
  13 ;{
  14 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  15
  16 my $offset = 0;
  17 my $varexpr = <<'EOT';
  18 +{%main::INC}
  19 EOT
  20 my $subref = \&dumpvar_epic::dump_hash_expr;
  21 my $savout = CORE::select($DB::OUT);
  22 my $savbuf = $|;
  23 $| = 0;
  24 $subref->($offset, $varexpr);
  25 $| = $savbuf;
  26 print "";
  27 CORE::select($savout);
  28 };
  29
  30 ;{
  31 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  32
  33 my $offset = 0;
  34 my $varexpr = <<'EOT';
  35 +{%main::SIG}
  36 EOT
  37 my $subref = \&dumpvar_epic::dump_hash_expr;
  38 my $savout = CORE::select($DB::OUT);
  39 my $savbuf = $|;
  40 $| = 0;
  41 $subref->($offset, $varexpr);
  42 $| = $savbuf;
  43 print "";
  44 CORE::select($savout);
  45 };
  46
  47 ;{
  48 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  49
  50 my $offset = 0;
  51 my $varexpr = <<'EOT';
  52 $h->{'%violations'}
  53 EOT
  54 my $subref = \&dumpvar_epic::dump_hash_expr;
  55 my $savout = CORE::select($DB::OUT);
  56 my $savbuf = $|;
  57 $| = 0;
  58 $subref->($offset, $varexpr);
  59 $| = $savbuf;
  60 print "";
  61 CORE::select($savout);
  62 };
  63
  64 ;{
  65 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  66
  67 my $offset = 0;
  68 my $varexpr = <<'EOT';
  69 $h->{'@lines'}
  70 EOT
  71 my $subref = \&dumpvar_epic::dump_array_expr;
  72 my $savout = CORE::select($DB::OUT);
  73 my $savbuf = $|;
  74 $| = 0;
  75 $subref->($offset, $varexpr);
  76 $| = $savbuf;
  77 print "";
  78 CORE::select($savout);
  79 };
  80
  81 c 188
  82 x \%violations
  83 x $nbrViolations
  84 x $ip
  85 x $violations{$ip}
  86 x @emails
  87 x $ip
  88 x $message
  89 c 285
  90 x $email
  91 x $email
  92 $email=1
  93 x $message
  94 $to="andrew\@defaria.com"
  95 $to="andrew\@defaria.com"
  96 c 228
  97 x \%violations
  98 c 235
  99 x $attempts
 100 x $violations{$ip}