Add unregister method to Network

Author: bbrtj

Changes

@@ -9,6 +9,7 @@ Revision history for Perl extension Bitcoin::Crypto.
 	- Bitcoin::Crypto::BIP44::get_derivation_path method (getting internal representation of BIP44 path)
 	- Bitcoin::Crypto::Network::single_network class method (single-network mode)
 	- Bitcoin::Crypto::Network::set_single method
+	- Bitcoin::Crypto::Network::unregister method
 
 	[Improvements]
 	- transactions can now be created without registering UTXOs beforehand (with limited functionality)

lib/Bitcoin/Crypto/Network.pm

@@ -107,6 +107,23 @@ sub register
 	return $self;
 }
 
+signature_for unregister => (
+	method => Object,
+	positional => [],
+);
+
+sub unregister
+{
+	my ($self) = @_;
+
+	Bitcoin::Crypto::Exception::NetworkConfig->raise(
+		'cannot unregister the default network - set another network as default first'
+	) if $default_network eq $self->id;
+
+	delete $networks{$self->id};
+	return $self;
+}
+
 signature_for set_default => (
 	method => Object,
 	positional => [],
@@ -417,6 +434,15 @@ context.
 
 Returns the network instance.
 
+=head2 unregister
+
+	my $network_object = $object->unregister()
+
+Does the opposite of L</register>. The network object will no longer be stored
+in the module, so it will be destroyed if you let go of its reference.
+
+Can be useful if some of the default networks are interferring with your use case.
+
 =head2 set_default
 
 	$network_object = $object->set_default()
@@ -477,7 +503,7 @@ Example:
 		return $instance->name eq 'Some name';
 	}
 
-Returns a list of network instances (objects).
+Returns a list of network instance ids (strings).
 
 =head1 SEE ALSO
 

t/07-Network.t

@@ -70,5 +70,12 @@ subtest 'single-network mode works' => sub {
 	is(!!Bitcoin::Crypto::Network->single_network, !!0, 'single network 2 ok');
 };
 
+subtest 'unregistering a network works' => sub {
+	Bitcoin::Crypto::Network->get('litecoin')->unregister;
+
+	ok !Bitcoin::Crypto::Network->find(sub { shift->id eq 'litecoin' }),
+		'unregistered network not found';
+};
+
 done_testing;