File Coverage

blib/lib/Circle/Net.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	0	2	0.0
total	12	41	29.2

#  You may distribute under the terms of the GNU General Public License
#
#  (C) Paul Evans, 2017 -- [e-mail]

package Circle::Net;

use strict;
use warnings;

use base qw( Tangence::Object Circle::WindowItem );

our $VERSION = '0.173320';

sub set_network_status
{
   my $self = shift;
   my ( $status ) = @_;

   $self->{status} = $status;

   my $text = $self->get_prop_tag;
   $text .= "[$self->{status}]" if length $self->{status};

   $self->{widget_netname}->set_prop_text( $text ) if $self->{widget_netname};
}

sub get_widget_netname
{
   my $self = shift;

   return $self->{widget_netname} ||= do {
      my $registry = $self->{registry};

      my $widget = $registry->construct(
         "Circle::Widget::Label",
         classes => [qw( netname )],
      );
      $self->watch_property( "tag",
         on_updated => sub {
            my $text = $_[1];
            $text .= "[$self->{status}]" if length $self->{status};
            $widget->set_prop_text( $text );
         }
      );
      $widget;
   };
}

0x55AA;