Mercurial > pub > Impl
annotate Lib/CDBI/Meta.pm @ 31:d59526f6310e
Small fixes to Test framework (correct handlinf of the compilation errors in the test units)
Imported and refactored SQL DB schema from the old project
| author | Sergey |
|---|---|
| date | Mon, 09 Nov 2009 01:39:16 +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; |