/usr/local/CPAN/XAO-Base/XAO/DO/EmbeddableTest.pm

• package XAO::DO::EmbeddableTest
  • embeddable_methods
  • check
• EOF

# 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;