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