#!/usr/bin/perl -w

#############################################################################
# Property - a property
#
# Copyright (C) 1999-2000 by Tels. All rights reserved.
#############################################################################

package Property;
use vars qw($VERSION);
$VERSION = 1.00;    # Current version of this package
require  5.005;     # requires this Perl version or later

use base Item;
#@EXPORT_OK	= qw( );
#@EXPORT	= qw( );
use strict;
use vars qw($AUTOLOAD);

#############################################################################
# private, initialize self 

sub _init
  {
  my $self = shift;
  my $args = shift;

  $self->SUPER::_init($args);
  $self->SUPER::_default( {
   name => '',
   } );
  return $self;
  }

#############################################################################
# public

1; 

__END__

#############################################################################

=pod

=head1 NAME

Property - a property of an object. The property has a B<name>, and one or
more values, which are defined by named fields. Simple properties have only
B<value>, others might have more fields.

=head1 SYNOPSIS

	use Property;

	$p1 = new Property ( name => bright, value => 128 );
	$p2 = new Property ( name => shape, value => 'lamp' );
	$p3 = new Property ( name => light, bright => 128, hue => 0.5 );

	print $p1->as_string(); # print as string

=head1 REQUIRES

perl5.005, L<Item|Item>

=head1 EXPORTS

Exports nothing.

=head1 DESCRIPTION

This module defines a collection of object properties. 

See also L<Item|Item>.

=head1 BUGS

None known yet.

=head1 AUTHOR

Tels http://bloodgate.com in late 2000.

=cut

