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

• package XAO::DO::Config
  • init
• EOF

package XAO::DO::Config;
use strict;
use XAO::Objects;
use base XAO::Objects->load(objname => 'Config', baseobj => 1);

sub init ($$) {
    my $self=shift;

    my $lc=XAO::Objects->new(objname => 'LocalConf', sitename => 'test');

    $self->embed('local' => $lc);

    my $em=XAO::Objects->new(objname => 'EmbeddableTest', sitename => 'test');

    $self->embed('etest' => $em);

    $self->SUPER::init();
}

1;