| blib/lib/CGI/Screen.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 45 | 31.1 |
| line | l | !l | condition |
|---|---|---|---|
| 91 | 0 | 0 | $self->_set_screen('login', 'Will not serve your ip address') and return $self |
| 96 | 0 | 0 | $self->_set_screen('login', 'Need user id and password') and return $self |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 38 | 1 | 0 | 0 | @screen_last_name > 1 and $screen_last_name[-2] eq $screen |
| 0 | 1 | 0 | not $$self{'dont_cut_loops'} and @screen_last_name | |
| 1 | 0 | 0 | not $$self{'dont_cut_loops'} and @screen_last_name and $screen_last_name[-1] eq $screen | |
| 81 | 1 | 0 | 0 | @_ > 1 and $_[0] eq '-screen' |
| 134 | 14 | 1 | 0 | ref $_[0] and eval { do { $_[0]->isa('CGI::Screen') } } |
| 140 | 1 | 1 | 13 | @_ and $_[0] eq '-name' |
| 160 | 11 | 5 | 2 | @_ > 1 and $_[0] eq '-name' |
| 170 | 0 | 0 | 0 | @_ > 1 and $_[0] eq '-name' |
| line | l | !l | condition |
|---|---|---|---|
| 281 | 0 | 0 | $title || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 0 | 1 | $title || $self->param('screen_' . $screen) |
| 61 | 0 | 0 | 0 | $$self{'screen_last_title'} || $$self{'screen_last_name'} |
| 129 | 0 | 0 | 167 | exists $old{$sym} or defined &{"CGI::Screen::$sym";} |
| 203 | 0 | 0 | 0 | $title || $screen || $query->default_title |
| 215 | 0 | 0 | 0 | $$query{'screen_title'} || $query->default_title |