| … | |
… | |
| 114 | if defined $self->{cb}; |
114 | if defined $self->{cb}; |
| 115 | |
115 | |
| 116 | $self->exec_change_cbs (qw/inventory/); |
116 | $self->exec_change_cbs (qw/inventory/); |
| 117 | }; |
117 | }; |
| 118 | |
118 | |
| 119 | [ map { GCE::ArchRef->new (arch => $_, cb => $cb) } @{$self->get ('inventory') || []} ] |
119 | [ map { GCE::ArchRef->new (arch => $_, source => 'inventory', cb => $cb) } @{$self->get ('inventory') || []} ] |
| 120 | } |
120 | } |
| 121 | |
121 | |
| 122 | sub replace_inv { |
122 | sub replace_inv { |
| 123 | my ($self, $idx, $new) = @_; |
123 | my ($self, $idx, $new) = @_; |
| 124 | splice @{$self->getarch->{'inventory'}}, $idx, 1, $new; |
124 | splice @{$self->getarch->{'inventory'}}, $idx, 1, $new; |
