Mercurial > pub > Impl

comparison Lib/IMPL/Class/Meta.pm @ 171:59e5fcb59d86

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Исправления, изменена концепция веб-форм
author sourcer
date Mon, 06 Jun 2011 03:30:36 +0400
parents 76515373dac0
children aaab45153411
comparison
equal deleted inserted replaced
170:b88b7fe60aa3 171:59e5fcb59d86
1 package IMPL::Class::Meta; 1 package IMPL::Class::Meta;
2 use strict; 2 use strict;
3 3
4 use Storable qw(dclone); 4 use Clone qw(clone);
5 5
6 my %class_meta; 6 my %class_meta;
7 my %class_data; 7 my %class_data;
8 8
9 sub set_meta { 9 sub set_meta {
47 47
48 if( exists $class_data{$class}{$name} ) { 48 if( exists $class_data{$class}{$name} ) {
49 $class_data{$class}{$name}; 49 $class_data{$class}{$name};
50 } else { 50 } else {
51 if ( my $value = $class->_find_class_data($name) ) { 51 if ( my $value = $class->_find_class_data($name) ) {
52 $class_data{$class}{$name} = dclone($value); 52 $class_data{$class}{$name} = clone($value);
53 } else { 53 } else {
54 undef; 54 undef;
55 } 55 }
56 } 56 }
57 } 57 }