CSS::Property - A property in a CSS object tree

CSS documentation Contained in the CSS distribution.

Index

Code Index:

NAME

Top

CSS::Property - A property in a CSS object tree

SYNOPSIS

Top

  use CSS;

DESCRIPTION

Top

This module represents a property in a CSS object tree. Read the CSS.pm pod for information about the CSS object tree.

METHODS

Top

CONSTRUCTORS

new() or new( { ..options.. } )

This constructor returns a new CSS::Property object, with an optional hash of options.

  property	property name (as string)
  value		simple value string
  adaptor	adaptor to use for serialization

If the value option is passed, a CSS::Value object is automatically created and added to the object's values list.

ACCESSORS

set_adaptor( 'CSS::Adaptor::Foo' )

This method sets the current adaptor for the object.

values()

This method is used to serialize the property's values, using the current adaptor. It returns a string which comes from the adaptor's output_values() method.

AUTHOR

Top

Copyright (C) 2003-2004, Cal Henderson <cal@iamcal.com>

SEE ALSO

Top

CSS, http://www.w3.org/TR/REC-CSS1

CSS documentation Contained in the CSS distribution. 
package CSS::Property;

$VERSION = 1.02;

use strict;
use warnings;

use CSS::Value;

sub new {
	my $class = shift;
	my $self = bless {}, $class;

	$self->{options} = shift;

	$self->{property}	= '';
	$self->{simple_value}	= '';
	$self->{adaptor}	= 'CSS::Adaptor';

	$self->{property}	= $self->{options}->{property} if defined $self->{options}->{property};
	$self->{simple_value}	= $self->{options}->{value} if defined $self->{options}->{value};
	$self->{adaptor}	= $self->{options}->{adaptor} if defined $self->{options}->{adaptor};
	$self->{values}		= [];

	if (defined $self->{simple_value}){
		my $value_obj = new CSS::Value({
					'value'		=> $self->{simple_value},
					'adaptor'	=> $self->{adaptor},
				});
		push @{$self->{values}}, $value_obj;
	}

	return $self;
}

sub set_adaptor {
	my $self = shift;
	my $adaptor = shift;

	# set adaptor
	$self->{adaptor} = $adaptor;
}

sub values {
	my $self = shift;
	my $adaptor_obj = new $self->{adaptor};
	return $adaptor_obj->output_values($self->{values});
}

1;

__END__