| … | … | ||
|---|---|---|---|
| 355 | 355 | ||
| 356 | sub put { | 356 | sub put { |
| 357 | my ($self, $obj) = @_; | 357 | my ($self, $obj) = @_; |
| 358 | 358 | ||
| 359 | return undef unless $self->{cauldron}; | 359 | return undef unless $self->{cauldron}; |
| 360 | $obj->insert_ob_in_ob ($self->{cauldron}); | 360 | $self->{cauldron}->insert ($obj); |
| 361 | } | 361 | } |
| 362 | 362 | ||
| 363 | =back | 363 | =back |
| 364 | 364 | ||
| 365 | =cut | 365 | =cut |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |