### XXA.pm ###
package XXA;

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

use strict;

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

use XXB;

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

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

sub xxa {
        xxb;
}

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

1;
### end XXA.pm ###