--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/CDBI/Meta.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,20 @@
+package CDBI::Meta::BindingAttribute;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object);
+use IMPL::Class::Property;
+use IMPL::Class::Property::Direct;
+
+BEGIN {
+    public _direct property Binding => prop_get;
+    public _direct property Name => prop_get;
+}
+
+sub CTOR {
+    my ($this,$name,$binding) = @_;
+    $this->{$Binding} = $binding;
+    $this->{$Name} = $name;
+}
+
+1;