#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::Client::DistributionClient;

use strict;
use warnings;
use Carp;

use lib '/app/tools/common/lib';
use Common::Assert;

use lib '/app/tools/support/lib';
use Support::ServiceAccount::ServiceAccountList;
use Support::Service::DistributionServiceList;
use Support::Permission;

use Support::Client::ClientSimple;
use base 'Support::Client::ClientSimple';

sub _initProperties {
    my $self = shift;

    $self->SUPER::_initProperties(@_);

    $self->{DistributionServices} = new Support::Service::DistributionServiceList( clientID => $self->ClientID );

    return $self;
}

1;