view release on metacpan or  search on metacpan

t/function.t  view on Meta::CPAN

	my $config_content = <<'YAML';
---
Test__Reload__Private:
  public_key: updated_value
YAML
	my $config_file = create_test_config($temp_dir, 'test-reload-private.yml', $config_content);

	my $obj = bless {
		_config_file => $config_file,
		public_key   => 'original',
		_private_key => 'preserved',
	}, 'Test::Reload::Private';

	Object::Configure::_reload_object_config($obj);

	is($obj->{public_key},   'updated_value', 'Public key updated from reloaded config file');
	is($obj->{_private_key}, 'preserved',     'Private key not overwritten (skipped by ^_ guard)');

	done_testing();
};

# =============================================================================
# register_object() — weak-reference storage
# Premise: Scalar::Util::weaken is applied so the registry does not keep objects alive.
# =============================================================================
subtest 'register_object() - stores a weak reference to the object' => sub {
	my $obj = bless { value => 42 }, 'Test::WeakRefCheck';