[system] / trunk / pg / lib / Value.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Value.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6206 Revision 6207
600# from the given objects. (Used by binary operators to make sure 600# from the given objects. (Used by binary operators to make sure
601# the result inherits the values from the two terms.) 601# the result inherits the values from the two terms.)
602# 602#
603sub inherit { 603sub inherit {
604 my $self = shift; 604 my $self = shift;
605 my %copy = (map {%$_} @_); # copy values from given objects 605 my %copy = (map {%$_} @_,$self); # copy values from given objects
606 foreach my $id ($self->noinherit) {delete $copy{$id}} 606 foreach my $id ($self->noinherit) {delete $copy{$id}}
607 $self = bless {%copy,%$self}, ref($self); 607 $self = bless {%copy}, ref($self);
608 return $self; 608 return $self;
609} 609}
610 610
611# 611#
612# The list of fields NOT to inherit. 612# The list of fields NOT to inherit.

Legend:
Removed from v.6206  
changed lines
  Added in v.6207

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9