Mercurial > pub > Impl
view Lib/IMPL/Class/declare.pm @ 165:76515373dac0
Added Class::Template,
Rewritten SQL::Schema
'use parent' directive instead of 'use base'
author | wizard |
---|---|
date | Sat, 23 Apr 2011 23:06:48 +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