Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Text / AttributeEntry.pm

package Pastel::Text::AttributeEntry;
use strict;

sub new {
    my $class = shift;
   
    # Fields

    my $self = {  
	key    => "",  
        value  => "",    
	};
    bless $self, ref($class) || $class;
    $self->_init(@_);
    return $self;
}

sub _init {
  my ($self, @args) = @_;
  $self->{key} = $args[0];
  $self->{key} = $args[1];
  return $self;
}

sub equals{
  my ($self,$object) = @_;
  if (!$object->isa("Pastel::Text::AttributeEntry")) {
    return 0;
  }elsif (!( $self->get_key() eq $object->get_key() ) ||
	  !( $self-get_value() eq $object->get_value() )
	 ) {
    return 0;
  } else{ return 1;
	  }
}

sub get_key {
  my $self = shift;
  return $self->{key};
}

sub get_value {
  my $self = shift;
  return $self->{value};
}

1;