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 |