奇怪的引用和继承[已解决]

CODE:

package AXS::Modules;
use strict;
use base qw( AXS::Object );

our $VERSION        = '0.1.1';

sub new{
        my $class;
        $class = 'Modules::'.ucfirst($QSV{'s'});

        return bless {},$class;
}

1;
__END__

CODE:

package Modules::Flags;
use strict;
use XML::Simple;
use base qw( AXS::Object );

our $VERSION        = '0.0.1.1';
our @EXPORT        = qw( module_in get_list);

sub module_in{

}

sub get_list{
        return 1;
}

1;
__END__

CODE:

use AXS::Modules;

.....
...

$m = new Modules;
$m->get_list();