Initial commit of OpenSPARC T2 design and verification files.

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

# Perl module for Pastel::Attribute.pm\r
# Author: Malay < curiouser@ccmb.res.in>\r
# Copyright Malay\r
# You may distribute this module under the same terms as perl itself\r
\r
# POD documentation - main docs before the code\r
\r
=head1 NAME\r
\r
Pastel::Attribute.pm - Root attribute object of Pastel. For internal use. Don't use it directly.\r
\r
=head1 SYNOPSIS\r
\r
  my $stroke_object = Pastel::BasicStroke->new();\r
  my $att = Pastel::Attribute->new(-type=>STROKE,-object=>$stroke_object);\r
  my $att1 = Pastel::Attribute->new(STROKE, $stroke_object);\r
\r
=head1 DESCRIPTION\r
\r
Pastel::Attribute wraps the key/value pair of a graphics element. It automaticslly returns the required representation (for SVG a string in the form of "key:value"), when a method is called. There are two subclasses of this class: Pastel::ShapeAttribute, and Pastel::TextAttribute.\r
\r
=head1 CONTACT\r
\r
Malay <curiouser@ccmb.ap.nic.in>\r
\r
=cut\r
# Let the code begin...\r
\r
package Pastel::Attribute;\r
our @ISA = qw(Pastel::Root);\r
use Pastel::Root;\r
use strict;\r
\r
=head1 CONSTRUCTOR\r
\r
=head2 new()\r
\r
 Usage: $ae = Pastel::Attribute->new( -type=>"TYPE", -object=>$object);\r
              or,\r
              Pastel::Attribute->new( "TYPE", $object); \r
              \r
 Returns: A Pastel::Attribute object.\r
\r
 Arguments: TYPE is a keyword representing the type of the $object. For a Pastel::Shape object, the valid types and the corresponding classes are: \r
               STROKE       - Pastel::BasicStroke \r
               FILL         - Pastel::Color \r
               STROKE-COLOR - Pastel::Color\r
               TRANSFORM    - Pastel::AffineTransform\r
=cut\r
\r
sub _init {\r
    my ( $self, @args ) = @_;\r
    my ($type, $object) = $self->_rearrange(['TYPE','OBJECT'], @args);\r
    if (defined($type) && defined ($object)){ \r
    $self->{key}   = $type;\r
    $self->{value} = $object;\r
    return $self;\r
  }\r
}\r
\r
=head2 equals()\r
\r
 Usage: $ae = Pastel::Attribute->new("STROKE",Pastel::BasicStroke->new());\r
        $ae->equals($ae);\r
Function: Compares two Pastel::Attribute object\r
 Returns: Returns true if they are equal or returns undef otherwise\r
 Arguments: Pastel::Attribute object;\r
\r
=cut\r
\r
sub equals {\r
    my ( $self, $object ) = @_;\r
    if ( !$object->isa("Pastel::Attribute") ) {\r
        return 0;\r
    }\r
    elsif (!( $self->to_svg() eq $object->to_svg()  ))\r
    {\r
        return undef;\r
    }\r
    else {\r
        return 1;\r
    }\r
}\r
\r
\r
\r
sub get_key {\r
    my $self = shift;\r
    return $self->{key};\r
}\r
\r
=head2 get_type()\r
\r
 Usage: \r
 Function:\r
 Example:\r
 Returns: \r
 Arguments\r
\r
=cut\r
\r
sub get_type{\r
  return $_[0]->get_key();\r
}\r
\r
\r
sub get_value {\r
    my $self = shift;\r
    return $self->{value};\r
}\r
\r
sub to_svg {\r
  my $self = shift;\r
  # check whether the value stored is an object\r
  if ( $self->get_value() =~ /=HASH/ ){\r
    #print STDERR "***Iinside***\n";\r
    return $self->get_value()->to_svg(); # return just the string\r
  } else {\r
    return lc( $self->get_key() ).':'.$self->get_value();\r
  } \r
}\r
\r
\r
1;\r