package Dmitri::Test;

INIT {
        # This does not work under Apache::Registry:
        *{"Dmitri::Test::ABC::say_hello"} = sub { print "hi\n"; };
        *{"Dmitri::Test::ABC::new"} = sub { return bless {}, "Dmitri::Test::ABC"
; };

        # This works:
        #sub Dmitri::Test::ABC::say_hello { print "hi\n"; };
        #sub Dmitri::Test::ABC::new { return bless {}, "Dmitri::Test::ABC"; };
}

sub say_hi {
        my $x = Dmitri::Test::ABC->new;
        $x->say_hello;
}

1;

##</code><code>##

#!/usr/bin/perl -w

use Dmitri::Test;

print <<HTML;
Content-type: text/plain

HTML

Dmitri::Test::say_hi;

exit(0);

##</code><code>##

sub A::B::routine { &$ref }