| blib/lib/Circle/Net.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 3 | 0.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 0 | 0 | 0 | $self->{'widget_netname'} ||= do { my $registry = $self->{'registry'}; my $widget = $registry->construct('Circle::Widget::Label', 'classes', ['netname']); $self->watch_property('tag', 'on_updated', sub { my $text = $_[1]; $text .= "[$self->{'status'}]" if length $self->{'status'}; $widget->set_prop_text($text); } ); $widget } |