lib/Our/Code/Customer.pm
    lib/Our/Code/Datacenter.pm
    lib/Our/Code/Item.pm
    lib/Our/Code/Office.pm
    lib/Our/Code/Order.pm
    lib/Our/Code/Server.pm
    lib/Our/Code/Server/Dedicated.pm

##</code><code>##

    use aliased 'Our::Code::*';

    my $cust       = Customer->new;
    my $datacenter = Datacenter->new;
    my $item       = Item->new;
    my $office     = Office->new;
    my $order      = Order->new;
    my $server     = Server->new;
    my $ded_server = ServerDedicated->new;   # unsure of this

##</code><code>##

    use Our::Code::Customer;
    use Our::Code::Datacenter;
    use Our::Code::Item;
    use Our::Code::Office;
    use Our::Code::Order;
    use Our::Code::Server;
    use Our::Code::Server::Dedicated;

    my $cust       = Our::Code::Customer->new;
    my $datacenter = Our::Code::Datacenter->new;
    my $item       = Our::Code::Item->new;
    my $office     = Our::Code::Office->new;
    my $order      = Our::Code::Order->new;
    my $server     = Our::Code::Server->new;
    my $ded_server = Our::Code::Server::Dedicated->new;

##</code><code>##

    sub Order {
      my $class = 'Our::Customer::Order';
      if ( exists $INC{'lib/Order.pm'} ) {
        # die and noisily complain about a conflict
      }
      # load the class if not loaded
      return $class;
    }