Mercurial > pub > Impl
view Lib/CDBI/Meta.pm @ 120:41e9d9ea3db5
Merge with 79cdd6c86409806bd1de092d9f0fb2b048775720
author | wizard |
---|---|
date | Mon, 07 Jun 2010 17:45:14 +0400 |
parents | 16ada169ca75 |
children | 76515373dac0 |
line wrap: on
line source
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;