| script/tinyauth | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 42 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 199 | 0 | 0 | 39 | defined $_[0] && !ref($_[0]) && length $_[0] |
| 204 | 18 | 0 | 27 | ref $_[0] eq 'ARRAY' && @{$_[0];} |
| 209 | 0 | 0 | 104 | &Scalar::Util::blessed($_[0]) && $_[0]->isa($_[1]) |
| 300 | 13 | 0 | 11 | $self->cgi->cookie('e') and $self->cgi->cookie('p') |
| 308 | 0 | 11 | 0 | $$self{'user'} and not $$self{'user'}->check_password($password) |
| 862 | 18 | 0 | 27 | _ARRAY $info && $$info[0] eq 'admin' |
| 915 | 7 | 0 | 9 | $admin and $self->is_user_admin($admin) |
| line | l | !l | condition |
|---|---|---|---|
| 274 | 0 | 26 | $$self{'homepage'} ||= 'http://search.cpan.org/perldoc?TinyAuth' |
| 284 | 22 | 4 | $self->cgi->param('a') || '' |
| 288 | 0 | 26 | $$self{'args'} ||= {'CLASS', ref $self, 'VERSION', $self->VERSION, 'SCRIPT_NAME', $ENV{'SCRIPT_NAME'}, 'HOMEPAGE', $self->homepage, 'TITLE', $self->title, 'DOCTYPE', $self->html__doctype, 'HEAD', $self->html__head} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 267 | 0 | 0 | 26 | $$self{'title'} ||= $self->config->[0]{'title'} |
| 268 | 0 | 26 | 0 | $$self{'title'} ||= 'TinyAuth ' . $TinyAuth::VERSION |
| 273 | 0 | 0 | 26 | $$self{'homepage'} ||= $self->config->[0]{'homepage'} |
| 300 | 2 | 0 | 24 | $self->cgi->param('E') or $self->cgi->param('P') |
| 842 | 0 | 31 | 0 | shift() || $self->args |