|
163
|
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 |
