--- a/lib/IMPL/Object/Abstract.pm	Mon Sep 14 01:11:53 2015 +0300
+++ b/lib/IMPL/Object/Abstract.pm	Mon Sep 21 00:53:10 2015 +0300
@@ -2,6 +2,9 @@
 use strict;
 use warnings;
 
+BEGIN {
+	require IMPL::Class::Meta;
+}
 use parent qw(IMPL::Class::Meta);
 use Carp qw(croak);
 
@@ -10,6 +13,8 @@
 
 my %cacheCTOR;
 
+__PACKAGE__->static_accessor_own(_typeInfo => undef);
+
 my $t = 0;
 sub cache_ctor {
     my $class = shift;
@@ -114,6 +119,16 @@
     return (ref $self || $self);
 }
 
+sub GetTypeInfo {
+	my $self = shift;
+	my $info = $self->_typeInfo;
+	unless($info) {
+		$info = TypeInfo->new(type => ref($self) ? $self->_typeof : $self);
+		$self->_typeInfo($info);
+	}
+	return $info;
+}
+
 sub _typeof {
     ref $_[0] || $_[0];
 }