| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless my $self = shift() |
|
65
|
0 |
0 |
unless my $self = shift() |
|
70
|
0 |
0 |
unless my $self = shift() |
|
75
|
0 |
0 |
unless my $self = shift() |
|
80
|
0 |
0 |
unless my $self = shift() |
|
85
|
0 |
0 |
unless my $self = shift() |
|
90
|
0 |
0 |
if $DEBUG > 1 |
|
98
|
0 |
0 |
if $$self{'__lock_list_public'} |
|
103
|
0 |
0 |
if $$self{'msglimit'} |
|
104
|
0 |
0 |
if $$self{'room_id'} |
|
119
|
0 |
0 |
if $$self{'room_lock'} |
|
133
|
0 |
0 |
if (my $f = $b->first_child('from')) |
|
143
|
0 |
0 |
if (not $$self{'msglimit'} or $$m{'id'} > $$self{'msglimit'}) |
|
170
|
0 |
0 |
unless my $self = shift() |
|
175
|
0 |
0 |
if $DEBUG > 1 |
|
177
|
0 |
0 |
if $$self{'__lock_list_private'} |
|
180
|
0 |
0 |
if $$self{'p_msglimit'} |
|
193
|
0 |
0 |
if (my $f = $b->first_child('from')) |
|
205
|
0 |
0 |
if (my $g = $b->first_child('grp')) |
|
212
|
0 |
0 |
if (not $$self{'p_msglimit'} or $$m{'id'} > $$self{'p_msglimit'}) |
|
220
|
0 |
0 |
if ($drop_archived and $$m{'archive'}) |
|
246
|
0 |
0 |
unless my $self = shift() |
|
247
|
0 |
0 |
unless my $message = shift() |
|
249
|
0 |
0 |
if $DEBUG > 1 |
|
251
|
0 |
0 |
unless ($self->logged_in) |
|
252
|
0 |
0 |
if $DEBUG |
|
269
|
0 |
0 |
unless our $self = shift() |
|
270
|
0 |
0 |
unless my $room = shift() |
|
272
|
0 |
0 |
if $DEBUG > 1 |
|
274
|
0 |
0 |
if $$self{'__lock_set_room'} |
|
277
|
0 |
0 |
unless ($self->logged_in) |
|
278
|
0 |
0 |
if $DEBUG |
|
286
|
0 |
0 |
if (lc $$self{'room'} eq $room) |
|
303
|
0 |
0 |
if (not $n->type or $n->type ne 'room') |
|
319
|
0 |
0 |
unless my $self = shift() |
|
320
|
0 |
0 |
unless my $user_id = shift() |
|
321
|
0 |
0 |
unless my $text = shift() |
|
326
|
0 |
0 |
if $DEBUG > 1 |
|
328
|
0 |
0 |
unless ($self->logged_in) |
|
329
|
0 |
0 |
if $DEBUG |
|
336
|
0 |
0 |
if ($cc) |
|
337
|
0 |
0 |
if (not $self->this_user_id) { } |
|
345
|
0 |
0 |
unless $self->this_user_id |
|
361
|
0 |
0 |
unless my $self = shift() |
|
362
|
0 |
0 |
unless my(@msgs) = @_ |
|
364
|
0 |
0 |
if $DEBUG > 1 |
|
374
|
0 |
0 |
unless my $self = shift() |
|
375
|
0 |
0 |
unless my(@msgs) = @_ |
|
377
|
0 |
0 |
if $DEBUG > 1 |
|
387
|
0 |
0 |
unless my $self = shift() |
|
388
|
0 |
0 |
unless my(@msgs) = @_ |
|
390
|
0 |
0 |
if $DEBUG > 1 |
|
400
|
0 |
0 |
unless my $self = shift() |
|
401
|
0 |
0 |
unless my(%ops) = @_ |
|
406
|
0 |
0 |
if (lc $ops{$_} eq 'delete') { } |
|
|
0 |
0 |
elsif (lc $ops{$_} eq 'archive') { } |
|
|
0 |
0 |
elsif (lc $ops{$_} eq 'unarchive') { } |