package Net::Paraget::Assignment;
#
# $Id: Assignment.pm,v 1.1.1.1 2001/01/31 19:40:39 ftobin Exp $
#

use strict;

use Class::MethodMaker
  get_set       => [ qw( mirror interval file client server ) ],
  new_hash_init => 'new';

sub info
{
    my ( $self ) = @_;
    my $mirror_info   = $self->mirror->as_string();
    my $interval_info = $self->interval->info();
    return "$mirror_info, extending interval $interval_info";
}


1;