Mercurial > pub > Impl
view Lib/IMPL/Class/declare.pm @ 164:eb3e9861a761
SQL traits in progress
author | wizard |
---|---|
date | Mon, 28 Mar 2011 01:36:24 +0400 |
parents | 6ce1f052b90a |
children |
line wrap: on
line source
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