Mercurial > pub > Impl
annotate Lib/CDBI/Meta.pm @ 30:dd4d72600c69
ORM in works
author | Sergey |
---|---|
date | Tue, 03 Nov 2009 16:31:47 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
rev | line source |
---|---|
0 | 1 package CDBI::Meta::BindingAttribute; |
2 use strict; | |
3 use warnings; | |
4 | |
5 use base qw(IMPL::Object); | |
6 use IMPL::Class::Property; | |
7 use IMPL::Class::Property::Direct; | |
8 | |
9 BEGIN { | |
10 public _direct property Binding => prop_get; | |
11 public _direct property Name => prop_get; | |
12 } | |
13 | |
14 sub CTOR { | |
15 my ($this,$name,$binding) = @_; | |
16 $this->{$Binding} = $binding; | |
17 $this->{$Name} = $name; | |
18 } | |
19 | |
20 1; |