#! /usr/local/bin/perl -w

use strict;
use lib '.';

use COPE::CORBA::ORB;
use Copex::Supervisor_impl;
use Copex::Persistent_impl;
use Copex::Temp_impl;
use Copex::OneServant_impl;
use Copex::OnDemand_impl;

my $orb = CORBA::ORB_init();
my $boa = $orb->BOA_init();

# Initialize the Persistent module
Copex::Persistent_impl::init();

# Initialize the OneServant module
Copex::OneServant_impl::init();

# Initialize the OnDemand module
Copex::OnDemand_impl::init();


# Make a supervisor object, and print out a stringified version of
# its object reference
my $super = Copex::Supervisor_impl->new();
my $super_ref = $orb->object_to_string($super);
$| = 1;
print $super_ref, "\n";

# Go into the BOA's event loop waiting for and processing requests
$boa->impl_is_ready();