diff Lib/IMPL/Class/declare.pm @ 163:6ce1f052b90a

temp commit
author wizard
date Tue, 15 Mar 2011 02:32:42 +0300
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Class/declare.pm	Tue Mar 15 02:32:42 2011 +0300
@@ -0,0 +1,42 @@
+package IMPL::Class::declare;
+use strict;
+use IMPL::_core::version;
+
+sub import {
+	my ($self,$meta) = @_;	
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+=head1 SYNOPSIS
+
+=begin code
+
+package Foo;
+use IMPL::Class::declare {
+	base => [qw(Bar)],
+	properties => [
+		id => { get => public, set => protected, type => 'uuid', verify => \&_checkId },
+		name => { get => public, set => public },
+		info => { static => 1 }
+	],
+	methods => [
+		store => \&_storeImpl
+		get => \&_getImpl
+	],
+	attributes => [
+		new ClassId('class-foo-1')
+	]
+};
+
+=end code
+
+=head1 DESCRIPTION
+
+=cut
\ No newline at end of file