/usr/local/CPAN/Xmldoom/Xmldoom/Definition/Property/PlaceHolder.pm

• package Xmldoom::Definition::Property::PlaceHolder
  • new
  • get_prop_args
  • get_data_type
• EOF

package Xmldoom::Definition::Property::PlaceHolder;
use base qw(Xmldoom::Definition::Property);

use strict;

use Data::Dumper;

sub new
{
	my $class = shift;
	my $args  = shift;

	my $parent;
	my $prop_name;

	if ( ref($args) eq 'HASH' )
	{
		$parent     = $args->{parent};
		$prop_name  = $args->{name};
	}
	else
	{
		$parent    = $args;
		$prop_name = shift;

		# if you don't know, then there is no need to know.
		$args = {
			parent => $parent,
			name   => $prop_name,
		};
	}

	my $self = $class->SUPER::new( $args );
	$self->{prop_args} = $args;

	bless  $self, $class;
	return $self;
}

sub get_prop_args { return shift->{prop_args}; }

sub get_data_type 
{
	return { type => 'custom' };
}

1;