| line |
true |
false |
branch |
|
83
|
0 |
2 |
unless ($plug)
|
|
85
|
1 |
1 |
unless %plugins
|
|
87
|
0 |
2 |
unless ($plugin)
|
|
93
|
2 |
0 |
unless ($status)
|
|
118
|
0 |
0 |
unless ($plug)
|
|
140
|
0 |
0 |
if (my $p = $self->_get_plugin($plug)) { }
|
|
208
|
0 |
0 |
if $user
|
|
209
|
0 |
0 |
unless ($user)
|
|
218
|
0 |
0 |
if $$ret{'screen_name'}
|
|
219
|
0 |
0 |
if $$ret{'name'}
|
|
220
|
0 |
0 |
if $$ret{'location'}
|
|
221
|
0 |
0 |
if $$ret{'description'}
|
|
222
|
0 |
0 |
if $$ret{'url'}
|
|
223
|
0 |
0 |
if $$ret{'friends_count'}
|
|
224
|
0 |
0 |
if $$ret{'followers_count'}
|
|
225
|
0 |
0 |
if $$ret{'statuses_count'}
|
|
226
|
0 |
0 |
if $$ret{'status'}{'text'}
|
|
243
|
0 |
0 |
unless $service and $service->can('users')
|
|
257
|
0 |
0 |
if $user
|
|
258
|
0 |
0 |
unless ($user)
|
|
280
|
0 |
0 |
if $user
|
|
281
|
0 |
0 |
unless ($user)
|
|
350
|
0 |
0 |
if $user
|
|
351
|
0 |
0 |
unless ($user)
|
|
402
|
0 |
0 |
@_ && $_[0] =~ /^from|to$/ ? :
|
|
410
|
0 |
0 |
if $max_id
|
|
411
|
0 |
0 |
if $count
|
|
416
|
0 |
0 |
if ($@ || !$ret and $self->error =~ /This application is not allowed to access or delete your direct messages/)
|
|
419
|
0 |
0 |
unless $ret
|
|
423
|
0 |
0 |
if $@
|
|
426
|
0 |
0 |
unless $ret
|
|
427
|
0 |
0 |
if $max_id and $max_id == $$ret[-1]{'id'}
|
|
432
|
0 |
0 |
unless @pages
|
|
436
|
0 |
0 |
$frto eq 'to' ? :
|
|
460
|
0 |
0 |
if $user
|
|
461
|
0 |
0 |
unless ($user)
|
|
466
|
0 |
0 |
unless (defined $mess and $mess =~ /\S/)
|
|
474
|
0 |
0 |
if ($len > 140)
|
|
514
|
0 |
0 |
unless ($text)
|
|
520
|
0 |
0 |
if ($len < 140) { }
|
|
|
0 |
0 |
elsif ($len > 140) { }
|
|
522
|
0 |
0 |
if $text =~ /\S/
|
|
523
|
0 |
0 |
if length "$text$tag" <= 140
|
|
559
|
0 |
0 |
if ($text =~ /^(\d+)\s+(.*)/)
|
|
563
|
0 |
0 |
unless ($text)
|
|
569
|
0 |
0 |
if ($len > 1000)
|
|
652
|
0 |
0 |
if (not $state) { }
|
|
|
0 |
0 |
elsif ($state eq 'on') { }
|
|
|
0 |
0 |
elsif ($state eq 'off') { }
|
|
689
|
0 |
0 |
if $handler and $$handler =~ /^(comp|help|smry)_/
|
|
690
|
0 |
0 |
if $cmd and $$cmd =~ /^(q|quit)$/
|
|
699
|
0 |
0 |
if ($file and -f $file)
|
|
700
|
0 |
0 |
unless my $fh = 'IO::File'->new($file, 'r')
|
|
703
|
0 |
0 |
unless $_
|
|
712
|
0 |
0 |
if (my $file = $self->history)
|
|
713
|
0 |
0 |
if $_
|
|
714
|
0 |
0 |
if (@history)
|
|
716
|
0 |
0 |
unless my $fh = 'IO::File'->new($file, 'w+')
|
|
717
|
0 |
0 |
if @history > 100
|
|
735
|
0 |
0 |
$first ? :
|
|
746
|
20 |
20 |
if (@_)
|
|
757
|
0 |
0 |
if ($pages) { }
|
|
760
|
0 |
0 |
if $max_id
|
|
761
|
0 |
0 |
if $count
|
|
765
|
0 |
0 |
unless $ret
|
|
766
|
0 |
0 |
if $max_id and $max_id == $$ret[-1]{'id'}
|
|
773
|
0 |
0 |
if $ret
|
|
776
|
0 |
0 |
unless @pages
|
|
788
|
0 |
0 |
if ($pages) { }
|
|
791
|
0 |
0 |
if $max_id
|
|
792
|
0 |
0 |
if $count
|
|
796
|
0 |
0 |
unless $ret
|
|
797
|
0 |
0 |
if $max_id and $max_id == $$ret[-1]{'id'}
|
|
804
|
0 |
0 |
if $ret
|
|
807
|
0 |
0 |
unless @pages
|
|
821
|
0 |
0 |
if $user
|
|
822
|
0 |
0 |
if $max_id
|
|
823
|
0 |
0 |
if $count
|
|
827
|
0 |
0 |
unless $ret
|
|
828
|
0 |
0 |
if $max_id and $max_id == $$ret[-1]{'id'}
|
|
833
|
0 |
0 |
unless @pages
|
|
847
|
0 |
0 |
unless defined $services and @$services
|
|
850
|
0 |
0 |
unless defined $service
|
|
856
|
0 |
0 |
if ($@) { }
|
|
|
0 |
0 |
elsif (not $ret) { }
|
|
857
|
0 |
0 |
$self->debug ? :
|
|
875
|
0 |
0 |
unless defined $services and @$services
|
|
878
|
0 |
0 |
unless defined $service
|
|
887
|
0 |
0 |
if ($@) { }
|
|
|
0 |
0 |
elsif (not $ret) { }
|
|
888
|
0 |
0 |
$self->debug ? :
|
|
905
|
0 |
0 |
$self->order =~ /^asc/i ? :
|
|
906
|
0 |
0 |
if $limit and $limit < scalar @recs
|
|
913
|
0 |
0 |
if ($self->pager) { }
|
|
929
|
0 |
0 |
unless $M
|
|
935
|
0 |
0 |
if ($who) { }
|
|
958
|
0 |
0 |
unless $limit
|
|
960
|
0 |
0 |
unless $limit =~ /^\d+$/
|
|
961
|
0 |
0 |
if $limit > $$max{'limit'}
|
|
964
|
0 |
0 |
if $limit <= $count
|
|
966
|
0 |
0 |
$limit % $count ? :
|
|
976
|
3 |
1 |
unless $class eq 'Base'
|
|
982
|
0 |
2 |
unless my $class = shift()
|