### XXB.pm ###
package XXB;

BEGIN { print (("  " x $main::x++) . "Beginning XXB compile\n") }

use strict;

#BEGIN
{
        use Exporter;
        use vars qw( @ISA @EXPORT );
        @ISA = qw( Exporter );
        @EXPORT = qw( xxb );
}

use XXA;

BEGIN { print (("  " x $main::x) . "Just used XXA in XXB compile\n") }

sub import {
        my ($self) = shift;
        print (("  " x $main::x) . "XXB->import called\n");
        $self->export_to_level(1, @_);
}

sub xxb {
        xxa;
}

BEGIN { print (("  " x --$main::x) . " Finishing XXB compile\n") }

1;
### end XXB.pm ###