# Test object for testcases/DOConfig.pm
#
package XAO::DO::EmbeddableTest;
use strict;
use XAO::Objects;
use base XAO::Objects->load(objname => 'Embeddable');
sub embeddable_methods ($) {
return qw(check);
}
sub check ($$) {
my $self=shift;
return $self->base_config();
}
1;