view Lib/IMPL/Class/Property/Accessor.pm @ 160:3f09584bf189

Corrected web application modules
author wizard
date Mon, 27 Dec 2010 19:41:36 +0300
parents b0c068da93ac
children 76515373dac0
line wrap: on
line source

package IMPL::Class::Property::Accessor;
use strict;
use base qw(IMPL::Class::Property::Base);

sub factoryParams {
	$_[0]->SUPER::factoryParams, qw($field);
}

sub RemapFactoryParams {
	my ($self,$propInfo) = @_;
	
	return $self->SUPER::RemapFactoryParams($propInfo),$propInfo->Name;
}

sub GenerateGet {
	'return $this->get($field);';
}

sub GenerateSet {
	'return $this->set($field,@_);';
}

sub GenerateSetList {
	'my $val = IMPL::Object::List->new( (@_ == 1 and UNIVERSAL::isa($_[0], \'ARRAY\') ) ? $_[0] : [@_] );
	$this->set($field,$val);	
	return(	wantarray ?	@{ $val } : $val );';
}

sub GenerateGetList {
	'my $val = $this->get($field);
	$this->set($field,$val = IMPL::Object::List->new()) unless $val;
	return(	wantarray ?	@{ $val	} : $val );';
}

1;