Mercurial > pub > Impl

comparison Lib/IMPL/declare.pm @ 279:af8af4b8337e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Mon, 04 Feb 2013 17:16:45 +0400
parents 4ddb27ff4a0b
children c6d0f889ef87
comparison
equal deleted inserted replaced
278:4ddb27ff4a0b 279:af8af4b8337e
71 push @isa, $class; 71 push @isa, $class;
72 $ctor{$class} = $mapper; 72 $ctor{$class} = $mapper;
73 } 73 }
74 } 74 }
75 75
76 *{"${caller}::CTOR"} = \%ctor; 76 %{"${caller}::CTOR"} = %ctor;
77 *{"${caller}::ISA"} = \@isa; 77 push @{"${caller}::ISA"}, @isa;
78
79 if(ref($args->{meta}) eq 'ARRAY') {
80 $caller->SetMeta($_) foreach @{$args->{meta}};
81 }
78 82
79 my $props = $args->{props} || []; 83 my $props = $args->{props} || [];
80 84
81 if ( $props eq 'HASH' ) { 85 if ( $props eq 'HASH' ) {
82 $props = [%$props]; 86 $props = [%$props];