Mercurial > pub > Impl

comparison Lib/CDBI/Meta.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
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;