DB<50> h
List/search source lines:               Control script execution:
  l [ln|sub]  List source code            T           Stack trace
  - or .      List previous/current line  s [expr]    Single step [in expr]
  v [line]    View around line            n [expr]    Next, steps over subs

... yadda yadda


##</code><code>##

  DB<1> { a => 1 }         # not an anonym hash
  DB<2> {
pre-debugger commands:
        { -- a => 1 }
  DB<2>

##</code><code>##

  DB<1> = { ;{
Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/s\a{ <-- HERE \a(.*)\a$/ at C:/Perl_524/lib/perl5db.pl line 3826.
 at C:/Perl_524/lib/perl5db.pl line 3826.
        DB::Obj::_handle_equal_sign_command(DB::Obj=HASH(0x24de098)) called at C:/Perl_524/lib/perl5db.pl line 2881
        DB::DB called at -e line 1
{       = ;{
  DB<2> { a => 1 }

  DB<3> {
Missing right curly or square bracket at (eval 14)[C:/Perl_524/lib/perl5db.pl:737] line 3, at end of line
syntax error at (eval 14)[C:/Perl_524/lib/perl5db.pl:737] line 3, at EOF

  DB<3>

##</code><code>##

  DB<6> h =
= [alias value]    Define a command alias, or list current aliases.
  DB<7>