package Rule;

sub new
{
   my $type = shift;
   my $self = {};
    $self->{'width'}          = undef;
    $self->{'style'}          = undef;
    $self->{'colour'}         = undef;
    $self->{'shade'}          = undef;
    $self->{'left'}           = undef;
    $self->{'right'}          = undef;
    $self->{'offset'}         = undef;

   return bless $self, $type;  
}

sub set {
    my $self = shift;
#HELP what if the parameter is wrong ?
    $self->{'width'}          = shift;
    $self->{'style'}          = shift;
    $self->{'colour'}         = shift;
    $self->{'shade'}          = shift;
    $self->{'left'}           = shift;
    $self->{'right'}          = shift;
    $self->{'offset'}         = shift;

    return $self;
}

1;
