view lib/IMPL/Class/TypeInfo.pm @ 427:09e0086a82a7 ref20150831 tip

Merge
author cin
date Tue, 15 May 2018 00:51:33 +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;