Mercurial > pub > Impl
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 |