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