Branch Coverage

blib/lib/Siebel/Srvrmgr/ListParser/FSA.pm
Criterion Covered Total %
branch 34 44 77.2


line true false branch
73 0 77 unless 'Log::Log4perl'->init_once(\$log_cfg)
78 0 77 unless defined $map_ref and ref $map_ref eq 'HASH'
90 13084 50 if (defined $curr_line) { }
92 0 13084 if (defined $self->notes('last_command') and $self->notes('last_command') eq 'exit') { }
124 0 50 if ($logger->is_debug)
136 66 50 if (defined $state->notes('line')) { }
153 54 50 if (defined $state->notes('line')) { }
176 12 0 unless $state->notes('greetings_created')
424 0 151 if ($logger->is_debug)
435 124 27 if (defined $cmd and $cmd ne '') { }
441 0 124 if $logger->is_debug
450 0 27 if ($logger->is_debug)
469 0 125 if ($state->notes('last_command') =~ /$$map_ref{'set_delimiter'}/) { }
487 32 93 if ($state->notes('last_command') =~ /$$map_ref{'list_comp'}/) { }
505 13 80 if ($state->notes('last_command') =~ /$$map_ref{'list_comp_types'}/) { }
523 14 66 if ($state->notes('last_command') =~ /$$map_ref{'list_params'}/) { }
541 14 52 if ($state->notes('last_command') =~ /$$map_ref{'list_tasks'}/) { }
559 7 45 if ($state->notes('last_command') =~ /$$map_ref{'list_servers'}/) { }
577 6 39 if ($state->notes('last_command') =~ /$$map_ref{'list_sessions'}/) { }
595 25 14 if ($state->notes('last_command') =~ /$$map_ref{'list_comp_def'}/) { }
613 12 2 if ($state->notes('last_command') =~ /$$map_ref{'load_preferences'}/) { }
631 0 2 if ($state->notes('last_command') eq '') { }