view Lib/IMPL/Class/Property/Accessor.pm @ 275:6253872024a4

*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents 4d0e1962161c
children
line wrap: on
line source

package IMPL::Class::Property::Accessor;
use strict;
use parent 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;