| line |
l |
!l&&r |
!l&&!r |
condition |
|
31
|
0 |
0 |
0 |
$$self{'conf'} ||= do {
my $conf = $self->conf_obj->read($self->conf_file, {'no_warn_on_fail', 1}) || croak($@);
my $hash = $self->conf_validation;
if ($hash and scalar keys %$hash) {
my $err_obj = $self->val_obj->validate($conf, $hash);
die $err_obj if $err_obj;
} ;
$conf
} |
|
32
|
0 |
0 |
0 |
$self->conf_obj->read($self->conf_file, {'no_warn_on_fail', 1}) || croak($@) |
|
56
|
0 |
0 |
0 |
$self->form->{$self->step_key} || $self->conf->{'default_step'} |
|
57
|
0 |
0 |
0 |
$self->conf->{'path_info_map'}{$step} || do {
my $step = $self->form->{$self->step_key} || $self->conf->{'default_step'};
return '' if $step eq $self->conf->{'default_step'};
[[qr"^/$step/(\d+)", 'id']]
} |
|
139
|
0 |
0 |
0 |
$_[0]->form->{'step_args'} || do {
if ($_[0]->form->{'step_info'}) {
my(@step_args) = split(m[/], $_[0]->form->{'step_info'}, 0);
for (my $i = 0; $i < @step_args; $i = $i + 2) {
$_[0]->form->{'step_args'}{$step_args[$i]} = $step_args[$i + 1] || '';
} ;
} ;
return $_[0]->form->{'step_args'} || {}
} |
|
153
|
0 |
0 |
0 |
$$self{'cache'} || do {
require CGI::Ex::Recipes::Cache;
$$self{'cache'} = 'CGI::Ex::Recipes::Cache'->new({'cache_hash', {}, 'dbh', $self->dbh})
} |
|
165
|
0 |
0 |
0 |
shift() || time |