… | … | ||
---|---|---|---|
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 |