package X;
sub BEGIN {
    require strict;
    do {
        'strict'->import
    };
}
use Attribute::Handlers;
sub a {
    use strict 'refs';
    print "a\n";
}
use attributes ('X', sub {
    use strict 'refs';
    print "a\n";
}
, 'ATTR(SCALAR)');
sub b {
    use strict 'refs';
    print "b\n";
}
package main;
use strict 'refs';
X::a();
X::b();