| line |
!l |
l&&!r |
l&&r |
condition |
|
198
|
0 |
0 |
0 |
defined $nick and length $nick |
|
287
|
0 |
0 |
0 |
$args{'SSL'} and not eval {
do {
require IO::Async::SSL
}
} |
|
353
|
0 |
0 |
0 |
$colcode =~ /^(\d\d?)/ and defined $irc_colour_map[$1] |
|
607
|
0 |
0 |
0 |
defined $spec and $spec =~ /^"/ |
|
764
|
0 |
0 |
0 |
$$hints{'target_is_me'} and defined $$hints{'prefix_name'} |
|
|
0 |
0 |
0 |
$$hints{'target_is_me'} and defined $$hints{'prefix_name'} and not $$hints{'prefix_is_me'} |
|
788
|
0 |
0 |
0 |
$self->can($method) and $self->$method($message, $hints) |
|
1389
|
0 |
0 |
0 |
exists $$items{$name} and $$items{$name}->get_prop_real |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
285
|
0 |
0 |
0 |
$args{'nick'} || $self->get_prop_nick || $$self{'configured_nick'} |
|
318
|
0 |
0 |
0 |
$args{'local_host'} || $$self{'local_host'} |
|
399
|
0 |
0 |
0 |
$ctrl eq 'U' or $ctrl eq '_' |
|
|
0 |
0 |
0 |
$ctrl eq 'R' or $ctrl eq ']' |
|
809
|
0 |
0 |
0 |
$$hints{'handled'} || $$hints{'synthesized'} |
|
908
|
0 |
0 |
0 |
$reconnect_delays[$$self{'reconnect_delay_idx'}++] // $reconnect_delays[-1] |
|
1045
|
0 |
0 |
0 |
$$opts{'port'} || $$s{'port'} |
|
|
0 |
0 |
0 |
$$opts{'SSL'} || $$s{'SSL'} |
|
|
0 |
0 |
0 |
$$opts{'ident'} || $$s{'ident'} |
|
|
0 |
0 |
0 |
$$opts{'pass'} || $$s{'pass'} |
|
1260
|
0 |
0 |
0 |
$$self{'whois_gate_f'}{$user_folded} ||= 'Future'->new |
|
1378
|
0 |
0 |
0 |
$all{$_}->get_prop_real or delete $all{$_} |
|
1459
|
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
} |
|
1481
|
0 |
0 |
0 |
$$self{'widget_channel_completegroup'} ||= do {
my $registry = $$self{'registry'};
my $widget = $registry->construct('Circle::Widget::Entry::CompleteGroup');
my %id_to_name;
$self->watch_property('channels', 'on_set', sub {
my(undef, $channels) = @_;
$widget->set(map({$id_to_name{$_->id} = $_->name;} values %$channels));
}
, 'on_add', sub {
my(undef, $added) = @_;
$widget->add($id_to_name{$added->id} = $added->name);
}
, 'on_del', sub {
my(undef, $deleted_id) = @_;
$widget->remove(delete $id_to_name{$deleted_id});
}
);
$widget->set(keys %{$$self{'channels'};});
$widget
} |