| line |
true |
false |
branch |
|
30
|
0 |
8 |
if ($@) |
|
199
|
39 |
0 |
defined $_[0] && !ref($_[0]) && length $_[0] ? : |
|
204
|
27 |
18 |
ref $_[0] eq 'ARRAY' && @{$_[0];} ? : |
|
209
|
104 |
0 |
&Scalar::Util::blessed($_[0]) && $_[0]->isa($_[1]) ? : |
|
225
|
0 |
26 |
unless (_INSTANCE $self->config, 'YAML::Tiny') |
|
230
|
26 |
0 |
unless ($self->auth) |
|
232
|
0 |
26 |
unless ($self->htpasswd) |
|
235
|
0 |
26 |
unless (-r $self->htpasswd) |
|
238
|
0 |
26 |
unless (-w $self->htpasswd) |
|
243
|
0 |
26 |
unless (_INSTANCE $self->auth, 'Authen::Htpasswd') |
|
248
|
0 |
26 |
unless ($self->email_from) |
|
251
|
26 |
0 |
unless ($self->mailer) |
|
256
|
0 |
26 |
unless (_INSTANCE $self->mailer, 'Email::Send') |
|
261
|
26 |
0 |
unless ($self->header) |
|
266
|
26 |
0 |
unless ($self->title) |
|
272
|
26 |
0 |
unless ($self->homepage) |
|
278
|
0 |
26 |
unless (_INSTANCE $self->cgi, 'CGI') |
|
283
|
26 |
0 |
unless ($self->action) |
|
300
|
2 |
24 |
if ($self->cgi->param('E') or $self->cgi->param('P')) { } |
|
|
11 |
13 |
elsif ($self->cgi->cookie('e') and $self->cgi->cookie('p')) { } |
|
308
|
0 |
11 |
if ($$self{'user'} and not $$self{'user'}->check_password($password)) |
|
314
|
12 |
14 |
if (ref $$self{'user'}) { } |
|
315
|
0 |
12 |
unless ($self->is_user_admin($$self{'user'})) |
|
397
|
0 |
26 |
unless $_[0]->config->[0]{'email_driver'} |
|
409
|
1 |
25 |
if $self->action eq 'error' |
|
411
|
1 |
24 |
if $self->action eq 'o' |
|
412
|
1 |
23 |
if $self->action eq 'f' |
|
413
|
2 |
21 |
if $self->action eq 'r' |
|
414
|
1 |
20 |
if $self->action eq 'c' |
|
415
|
1 |
19 |
if $self->action eq 'p' |
|
416
|
2 |
17 |
if $self->action eq 'n' |
|
417
|
2 |
15 |
if $self->action eq 'a' |
|
418
|
2 |
13 |
if $self->action eq 'l' |
|
419
|
2 |
11 |
if $self->action eq 'm' |
|
420
|
3 |
8 |
if $self->action eq 'b' |
|
421
|
2 |
6 |
if $self->action eq 'd' |
|
422
|
3 |
3 |
if $self->action eq 'e' |
|
487
|
2 |
2 |
$self->user ? : |
|
537
|
0 |
2 |
unless ($email) |
|
543
|
1 |
1 |
unless ($user) |
|
573
|
1 |
1 |
unless $self->admins_only |
|
580
|
1 |
2 |
if ($self->is_user_admin($user)) |
|
596
|
1 |
1 |
unless $self->admins_only |
|
605
|
1 |
2 |
unless $self->admins_only |
|
609
|
0 |
2 |
unless (@accounts) |
|
617
|
0 |
3 |
unless ($account) |
|
623
|
0 |
3 |
unless ($user) |
|
628
|
0 |
3 |
if ($self->is_user_admin($user)) |
|
665
|
1 |
1 |
unless $self->admins_only |
|
674
|
1 |
2 |
unless $self->admins_only |
|
678
|
0 |
2 |
unless (@accounts) |
|
686
|
0 |
3 |
unless ($account) |
|
692
|
0 |
3 |
unless ($user) |
|
697
|
0 |
3 |
if ($self->is_user_admin($user)) |
|
734
|
0 |
1 |
unless ($new) |
|
738
|
0 |
1 |
unless ($confirm) |
|
741
|
0 |
1 |
unless ($new eq $confirm) |
|
753
|
1 |
1 |
unless $self->admins_only |
|
762
|
1 |
1 |
unless $self->admins_only |
|
766
|
0 |
1 |
unless ($email) |
|
771
|
0 |
1 |
if ($self->auth->lookup_user($email)) |
|
831
|
0 |
0 |
if (defined $self->header) |
|
867
|
0 |
6 |
unless $$b[2] <=> $$a[2] |
|
882
|
0 |
14 |
unless (defined _STRING($email)) |
|
885
|
0 |
14 |
unless (defined _STRING($password)) |
|
891
|
0 |
14 |
unless ($user) |
|
901
|
0 |
3 |
unless $user |
|
904
|
1 |
2 |
unless ($user->check_password($_[1])) |
|
914
|
0 |
16 |
$_[0] ? : |
|
915
|
7 |
9 |
unless ($admin and $self->is_user_admin($admin)) |
|
929
|
2 |
4 |
if ($self->is_user_admin($user)) { } |