Mercurial > pub > Impl

annotate Lib/CDBI/Meta.pm @ 25:9dd67fa91ee3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fix in the dom schema works under text schema
author Sergey
date Tue, 13 Oct 2009 17:51:25 +0400
parents 03e58a454b20
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
1 package CDBI::Meta::BindingAttribute;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
2 use strict;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
3 use warnings;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
4
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
5 use base qw(IMPL::Object);
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
6 use IMPL::Class::Property;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
7 use IMPL::Class::Property::Direct;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
8
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
9 BEGIN {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
10 public _direct property Binding => prop_get;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
11 public _direct property Name => prop_get;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
12 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
13
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
14 sub CTOR {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
15 my ($this,$name,$binding) = @_;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
16 $this->{$Binding} = $binding;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
17 $this->{$Name} = $name;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
18 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
19
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
20 1;