$foo->got_args->[1], 'altered', 'altered configuration is correct';
$wire->get( 'foo' );
isnt $called, 2, 'event handler is not called for already-created service';
$unsub->();
$call
$bar->got_args->[1], 'altered', 'altered configuration is correct';
$wire->get( 'bar' );
isnt $called, 2, 'event handler is not called for already-created service';
$unsub->();
};
subtes
ervice args is correct';
} );
my $foo = $wire->get( 'foo' );
$wire->get( 'foo' );
isnt $called, 2, 'event handler is not called for already-created service';
$unsub->();
$call
isnt refaddr $oof, refaddr $foo, 'different foo object is returned';
my $bar = $wire->get('bar');
isnt refaddr $bar->got_ref, refaddr $foo, 'different foo object is given to bar';
isnt r
);
isnt refaddr $oof, refaddr $foo, 'get() with overrides creates a new object';
isnt refaddr $oof, refaddr $wire->get('foo'), 'get() with overrides does not save the object';
isnt refadd
isnt refaddr $oof, refaddr $foo, 'get() with overrides creates a new object';
isnt refaddr $oof, refaddr $wire->get('container/foo'), 'get() with overrides does not save the object';
isnt r