view lib/IMPL/Class/TypeInfo.pm @ 418:3f38dabaf5cc ref20150831

sync
author cin
date Mon, 28 Dec 2015 15:11:35 +0300
parents ee36115f6a34
children
line wrap: on
line source

package IMPL::Class::TypeInfo;
use strict;
use mro;

require v5.10;

use IMPL::declare {
	require => {
		PropertyInfo => 'IMPL::Class::PropertyInfo'
	},
	base => [
		'IMPL::Object' => undef
	],
	props => [
		name     => 'r',
		_methods => 'rw',
		_props   => 'rw',
		_type    => 'rw'
	]
};

sub GetProperties {
	my $this = shift;

	my $cache = $this->_props;
	unless ($cache) {
		$cache = $this->_type->GetMeta( PropertyInfo, undef, 1 );
		$this->_props($cache);
	}
	return $cache;
}

1;