% perl -d test.pl
# ...
206:                    $global_phase++;
  DB<1> l X::a
Switching to file 'test.pl'.
5:      sub a : ATTR(SCALAR) {
6:          print "a\n";
7:      }
  DB<2> b 6
  DB<3> c
X::a(attribBreak.pl:6):     print "a\n";
  DB<3>