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