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

temp commit
author wizard
date Tue, 15 Mar 2011 02:32:42 +0300
parents
children
comparison
equal deleted inserted replaced
162:39c8788eded5 163:6ce1f052b90a
1 package IMPL::Class::declare;
2 use strict;
3 use IMPL::_core::version;
4
5 sub import {
6 my ($self,$meta) = @_;
7 }
8
9 1;
10
11 __END__
12
13 =pod
14
15 =head1 NAME
16
17 =head1 SYNOPSIS
18
19 =begin code
20
21 package Foo;
22 use IMPL::Class::declare {
23 base => [qw(Bar)],
24 properties => [
25 id => { get => public, set => protected, type => 'uuid', verify => \&_checkId },
26 name => { get => public, set => public },
27 info => { static => 1 }
28 ],
29 methods => [
30 store => \&_storeImpl
31 get => \&_getImpl
32 ],
33 attributes => [
34 new ClassId('class-foo-1')
35 ]
36 };
37
38 =end code
39
40 =head1 DESCRIPTION
41
42 =cut