Branch Coverage

blib/lib/Mail/Webmail/Gmail.pm
Criterion Covered Total %
branch 0 374 0.0


line true false branch
36 0 0 if defined $args{'timeout'}
40 0 0 $args{'mail_server'} || $args{'encrypt_session'} ? :
57 0 0 if (defined $args{'proxy_name'})
59 0 0 if (defined $args{'proxy_username'} and defined $args{'proxy_password'})
84 0 0 if $$self{'_logged_in'}
86 0 0 if ($$self{'_proxy_enable'} and $$self{'_proxy_enable'} >= 1)
88 0 0 if ($$self{'_proxy_enable'} and $$self{'_proxy_enable'} >= 2)
103 0 0 unless ($res->is_success)
111 0 0 unless ($res->content =~ /var url = (["'])(.*?)\1/)
136 0 0 unless ($res->content =~ /top.location="(.*?)"/)
145 0 0 if ($$self{'_proxy_enable'})
146 0 0 if ($$self{'_proxy_enable'} >= 1)
150 0 0 if ($$self{'_proxy_enable'} >= 2)
166 0 0 unless ($$self{'_logged_in'})
167 0 0 unless ($self->login)
180 0 0 if ($previous)
184 0 0 if (defined $header)
188 0 0 if ($_ =~ /(.*?)=(.*?);/)
189 0 0 if ($2 eq '') { }
192 0 0 unless ($1 =~ /\s/)
193 0 0 if ($1 ne '') { }
217 0 0 unless (check_login($self))
219 0 0 if (defined $args{'label'})
221 0 0 if ($self->error) { }
230 0 0 if (defined $args{'t'})
231 0 0 if (ref $args{'t'} eq 'ARRAY')
248 0 0 if ($method eq 'post')
254 0 0 if (defined $args{$_}) { }
255 0 0 if ($args{$_} eq '')
263 0 0 if ($method eq 'post') { }
270 0 0 if ($$self{'_proxy_enable'} and $$self{'_proxy_enable'} >= 2)
276 0 0 if ($url ne '')
281 0 0 if ($$self{'_proxy_enable'} and $$self{'_proxy_enable'} >= 2)
287 0 0 if ($res)
288 0 0 if ($res->is_success) { }
0 0 elsif ($res->previous) { }
301 0 0 unless (check_login($self))
303 0 0 unless ($res)
309 0 0 if ($$self{'_error'})
313 0 0 if ($res->is_success) { }
314 0 0 if (defined $functions{'qu'}) { }
315 0 0 if (wantarray) { }
353 0 0 unless (check_login($self))
357 0 0 if (uc $args{'action'} eq 'CREATE') { }
0 0 elsif (uc $args{'action'} eq 'DELETE') { }
0 0 elsif (uc $args{'action'} eq 'REMOVE') { }
0 0 elsif (uc $args{'action'} eq 'ADD') { }
0 0 elsif (uc $args{'action'} eq 'RENAME') { }
369 0 0 if (not defined $args{'msgid'}) { }
380 0 0 if ($$self{'_error'})
391 0 0 if ($$self{'_error'}) { }
401 0 0 if ($res->is_success) { }
403 0 0 if (defined $functions{'ar'}) { }
404 0 0 if (not $functions{'ar'}[0]) { }
426 0 0 unless (check_login($self))
428 0 0 unless ($res)
432 0 0 if ($res->is_success) { }
435 0 0 if ($$self{'_error'})
439 0 0 unless (defined $functions{'ct'})
448 0 0 if (@fields) { }
465 0 0 if (defined $label) { }
468 0 0 if ($label =~ /\^/)
471 0 0 if ($FOLDERS{$_} eq uc $label)
475 0 0 unless ($is_folder)
481 0 0 if (length $label > 40)
486 0 0 if (length $label == 0)
508 0 0 unless (check_login($self))
512 0 0 if ($args{'action'} eq 'add') { }
0 0 elsif ($args{'action'} eq 'remove') { }
523 0 0 if (defined $args{'msgid'}) { }
536 0 0 if ($res->is_success) { }
538 0 0 if (defined $functions{'ar'}) { }
539 0 0 if (not $functions{'ar'}[0]) { }
567 0 0 unless (check_login($self))
569 0 0 if ($args{'action'} eq 'archive') { }
0 0 elsif ($args{'action'} eq 'unarchive') { }
580 0 0 if (defined $args{'msgid'}) { }
593 0 0 if ($res->is_success) { }
595 0 0 if (defined $functions{'ar'}) { }
596 0 0 if (not $functions{'ar'}[0]) { }
642 0 0 unless (check_login($self))
646 0 0 if ($args{'to'} ne '' or $args{'cc'} ne '' or $args{'bcc'} ne '') { }
648 0 0 if (ref $args{$_} eq 'ARRAY')
654 0 0 if (defined $args{$_})
660 0 0 if ($res->is_success)
663 0 0 if ($$self{'_error'})
666 0 0 unless (defined $functions{'sr'})
669 0 0 if ($functions{'sr'}[1]) { }
670 0 0 if ($functions{'sr'}[3] eq '"0"') { }
699 0 0 if (defined $args{'label'})
701 0 0 if ($self->error) { }
710 0 0 unless (check_login($self))
714 0 0 if ($res->is_success) { }
717 0 0 if ($$self{'_error'})
722 0 0 unless (defined $functions{'t'})
744 0 0 if $email_line[9] ne ''
747 0 0 if (@emails == @{$functions{'ts'};}[1] and @{$functions{'ts'};}[0] != @{$functions{'ts'};}[2])
750 0 0 if ($args{'cat'})
756 0 0 if ($next_page_emails)
777 0 0 if (defined $args{'msgid'}) { }
789 0 0 unless (check_login($self))
795 0 0 if ($res->is_success) { }
798 0 0 if ($$self{'_error'})
801 0 0 unless (defined $functions{'ar'})
804 0 0 if ($functions{'ar'}[0]) { }
805 0 0 if ($del_message) { }
809 0 0 if ($res->is_success) { }
812 0 0 if ($$self{'_error'})
815 0 0 unless (defined $functions{'ar'})
818 0 0 if ($functions{'ar'}[0]) { }
851 0 0 if (defined $args{'id'} and defined $args{'label'}) { }
0 0 elsif (defined $args{'msg'}) { }
853 0 0 if ($self->error) { }
863 0 0 if (defined $args{'msg'}{'id'}) { }
871 0 0 if (defined @{$args{'msg'}{'labels'};})
872 0 0 if ($args{'msg'}{'labels'}[0] ne '')
875 0 0 if ($self->error) { }
878 0 0 if ($args{'label'} =~ /^\^.$/) { }
896 0 0 unless (check_login($self))
900 0 0 if ($res->is_success) { }
903 0 0 if (defined $functions{'mi'})
910 0 0 if ($email[16] ne '')
930 0 0 if ($args{'th'} eq $email[2])
935 0 0 if (defined $functions{'cs'})
936 0 0 if ($functions{'cs'}[8] ne '')
959 0 0 if (defined $args{'id'} and defined $args{'label'}) { }
0 0 elsif (defined $args{'msg'}) { }
961 0 0 if ($self->error) { }
971 0 0 if (defined $args{'msg'}{'id'}) { }
979 0 0 if (defined @{$args{'msg'}{'labels'};})
980 0 0 if ($args{'msg'}{'labels'}[0] ne '')
983 0 0 if ($self->error) { }
986 0 0 if ($args{'label'} =~ /^\^.$/) { }
1004 0 0 unless (check_login($self))
1008 0 0 if ($res->is_success) { }
1030 0 0 $args{'frequent'} ? :
1033 0 0 unless (check_login($self))
1037 0 0 if ($res->is_success) { }
1040 0 0 if ($$self{'_error'})
1045 0 0 unless (defined $functions{'cl'})
1076 0 0 unless (check_login($self))
1078 0 0 if (defined $args{'adkey'}) { }
1088 0 0 if ($res->is_success) { }
1097 0 0 if (uc remove_quotes($split_ad[0]) eq 'A') { }
0 0 elsif (uc remove_quotes($split_ad[0]) eq 'RN') { }
0 0 elsif (uc remove_quotes($split_ad[0]) eq 'RP') { }
1106 0 0 if ($split_ad[3] =~ /redir_url=(.*?)\"/)
1141 0 0 if ($args{'url'}) { }
1159 0 0 if (defined $args{'attid'} and defined $args{'msgid'}) { }
0 0 elsif (defined $args{'attachment'}) { }
1163 0 0 if (defined $args{'attachment'}{'id'}) { }
1170 0 0 if (defined $args{'attachment'}{'th'}) { }
1184 0 0 unless (check_login($self))
1188 0 0 if ($res->is_success) { }
1206 0 0 unless (check_login($self))
1229 0 0 if ($pref_res->is_success) { }
1232 0 0 if ($$self{'_error'})
1236 0 0 unless (defined $functions{'p'})
1242 0 0 if (defined $args{$_})
1243 0 0 if ($args{$_} eq '')
1255 0 0 if (not defined $args{$pref_mappings{$setting[0]}}) { }
1269 0 0 if ($rev_pref_mappings{$_})
1276 0 0 if ($res->is_success) { }
1278 0 0 if (@{$functions{'ar'};}[0] == 1) { }
1306 0 0 if ($char eq '\\') { }
1307 0 0 if ($count_slashes) { }
1334 0 0 if ($in_quotes) { }
0 0 elsif ($in_brackets) { }
0 0 elsif ($char eq '"') { }
0 0 elsif ($char eq '[') { }
0 0 elsif ($char ne ',') { }
0 0 elsif ($char eq ',') { }
1335 0 0 if ($char eq '"' and not recurse_slash($field))
1341 0 0 if ($in_brackets_quotes) { }
0 0 elsif ($char eq '"') { }
1342 0 0 if ($char eq '"' and not recurse_slash($field))
1350 0 0 if ($char eq '[') { }
0 0 elsif ($char eq ']') { }
1355 0 0 if ($delim_count == 0) { }
1358 0 0 if ($field eq '')
1380 0 0 if ($end_field)
1381 0 0 if ($field ne '')
1389 0 0 if ($field ne '')
1398 0 0 if (defined $field)
1410 0 0 if (defined $REVERSE_CAT{uc $cat}) { }
1420 0 0 if ($res->is_success) { }
1431 0 0 if (uc $function eq 'MI' or uc $function eq 'MB') { }