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') { } |