factorize selected_network_is_configured

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/network/connection.pm b/lib/network/connection.pm
index 570935b..ca1eb28 100644
--- a/lib/network/connection.pm
+++ b/lib/network/connection.pm
@@ -119,6 +119,13 @@ sub get_selected_network {
     exists $self->{networks}{$self->{network}} && $self->{networks}{$self->{network}};
 }
 
+sub selected_network_is_configured {
+    my ($self) = @_;
+
+    my $network = $self->get_selected_network or return;
+    $self->network_is_configured($network);
+}
+
 sub load_interface_settings {
     my ($self) = @_;
     require network::network;