The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package XAO::DO::Config;
use strict;
use XAO::Utils;
use XAO::Objects;
use base XAO::Objects->load(objname => 'Config', baseobj => 1);

my %data = (
);

###############################################################################
sub init {
    my $self=shift;

    $self->embedded('hash')->fill(\%data);

    my $fsconfig=XAO::Objects->new(
        objname     => 'FS::Config',
        odb_args    => {
            dsn       => '<%ODB_DSN%>',
            user      => '<%ODB_USER%>',
            password  => '<%ODB_PASSWORD%>',
        },
    );

    $self->embed(fs => $fsconfig);

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

###############################################################################
sub build_structure ($) {
    my $self=shift;

    my $cobj=XAO::Objects->new(objname => 'Web::Content');
    $cobj->build_structure;

##
# Or as an alternative:
#
#    $self->odb->fetch('/')->build_structure($cobj->data_structure);
}

###############################################################################
1;