view Lib/IMPL/Object/Accessor.pm @ 198:2ffe6f661605

Implemented IMPL::Web::Handler::RestController fixes in IMPL::Serialization completed IMPL::Web::Application::RestResource added IMPL::Web::Handler::JSONView added IMPL::Web::RestContract
author cin
date Fri, 20 Apr 2012 16:06:36 +0400
parents 4d0e1962161c
children 6d8092d8ce1b
line wrap: on
line source

package IMPL::Object::Accessor;
use strict;
use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);

sub new {
    my $class = shift;
    my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
    $self->callCTOR(@_);
    return $self;
}

sub surrogate {
    $_[0]->Class::Accessor::new;
}

__PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::AccessorPropertyInfo' );

sub _PropertyImplementor {
    'IMPL::Class::Property::Accessor'
}
1;