#!/usr/bin/perl -w

use strict;

####################
##подключаем обработчики базы данных
use File::Basename 'dirname';
use File::Spec;
use lib join '/', File::Spec->splitdir(dirname(__FILE__)), 'lib';
#####################

use Data::Dumper;
sub dmp { print Dumper @_; };

use ASObjects::MValue;
use ASObjects::Const;
use ASObjects::CatalogTest;

my $a = ASObjects::Const->new;
$a->value(10);
print $a->value;

my $c = ASObjects::CatalogTest->new(_type=>'Nomenclatures');#->init;
#$c->attrs->{code}->value(12);
#$c->attrs->{name}->value('fff');
#$c->attrs->{'aaa'} = ASObjects::MValue->new(value => 'qwerty');
#$c->set_attr('aaa', 'ff');
$c->attrs->{id}->{value} = 12;
dmp $c;
print "\n$c\n";