view Lib/CDBI/Meta.pm @ 47:a9b70d836b28

Web::Application development (request controller) Security development
author Sergey
date Tue, 23 Feb 2010 22:57:16 +0300
parents 03e58a454b20
children 16ada169ca75
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;