| blib/lib/Text/FormBuilder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 42 | 14.2 |
| line | l | !l | condition |
|---|---|---|---|
| 507 | 0 | 0 | carp('[' . (caller 0)[3] . "] Can't tidy the code: $@") and return $source_code |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 138 | 0 | 0 | 0 | -f $options{'messages'} and -r _ |
| 0 | 0 | 0 | -f $options{'messages'} and -r _ and open MESSAGES, "< $options{'messages'}" | |
| 258 | 10 | 0 | 0 | ref $$_{'options'} and @{$$_{'options'};} >= 3 |
| line | l | !l | condition |
|---|---|---|---|
| 268 | 10 | 90 | defined $$field{$_} or delete $$field{$_} |
| 370 | 0 | 0 | shift() || '$form' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 110 | 0 | 5 | 0 | $options{'css'} || $DEFAULT_CSS |
| 134 | 0 | 0 | 0 | $options{'messages'}{$key} ||= $DEFAULT_MESSAGES{$key} |
| 141 | 0 | 0 | 0 | /^\s*#/ or /^\s*$/ |
| 174 | 0 | 0 | 0 | $$field{'label'} ||= ucfirst $$field{'name'} |
| 178 | 0 | 0 | 0 | $$_[1]{'label'} || ucfirst join(' ', split(/_/, $$_[1]{'name'}, 0)) |
| 252 | 0 | 0 | 0 | $$_{'label'} || ucfirst join(' ', split(/_/, $$_{'name'}, 0)) |
| 513 | 0 | 0 | 0 | $options || $TIDY_OPTIONS |
| 619 | 5 | 0 | 0 | shift() || $DEFAULT_CSS |
| 620 | 0 | 5 | 0 | shift() || $DEFAULT_CHARSET |