package X;
use strict;
use Attribute::Handlers;

sub a : ATTR(SCALAR) {
    print "a\n";
}

sub b {
    print "b\n";
}

package main;

X::a;
X::b;

##</code><code>##

$ perl -d dbtest.pl

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

Attribute::Handlers::CODE(0x8322008)(/usr/share/perl/5.8/Attribute/Handlers.pm:206):
206:                    $global_phase++;
  DB<1> printf "Perl v%vd\n", $^V
Perl v5.8.8

  DB<2> b X::a
  DB<3> b X::b
  DB<4> L
dbtest.pl:
 5: sub a : ATTR(SCALAR) {
   break if (1)
 10:        print "b\n";
   break if (1)
  DB<4> c
a
X::b(dbtest.pl:10):     print "b\n";
  DB<4>