Branch Coverage

src/class_plain_field.c
Criterion Covered Total %
branch 33 54 61.1


line true false branch
26 26 0 if(value && (!SvPOK(value) || !SvCUR(value))) {
3 23 if(value && (!SvPOK(value) || !SvCUR(value))) {
0 3 if(value && (!SvPOK(value) || !SvCUR(value))) {
34 8 18 if (strcmp(name, "reader") == 0) {
38 8 0 sv_catpv(sv_reader_code, SvPV_nolen(field->class->name));
40 1 7 if (value) {
41 1 0 sv_catpv(sv_reader_code, SvPV_nolen(value));
44 7 0 sv_catpv(sv_reader_code, SvPV_nolen(field->name));
47 8 0 sv_catpv(sv_reader_code, SvPV_nolen(field->name));
51 8 0 Perl_eval_pv(aTHX_ SvPV_nolen(sv_reader_code), 1);
54 5 13 else if (strcmp(name, "writer") == 0) {
58 5 0 sv_catpv(sv_writer_code, SvPV_nolen(field->class->name));
60 1 4 if (value) {
61 1 0 sv_catpv(sv_writer_code, SvPV_nolen(value));
65 4 0 sv_catpv(sv_writer_code, SvPV_nolen(field->name));
68 5 0 sv_catpv(sv_writer_code, SvPV_nolen(field->name));
72 5 0 Perl_eval_pv(aTHX_ SvPV_nolen(sv_writer_code), 1);
75 13 0 else if (strcmp(name, "rw") == 0) {
13 0 else if (strcmp(name, "rw") == 0) {
13 0 else if (strcmp(name, "rw") == 0) {
79 13 0 sv_catpv(sv_rw_code, SvPV_nolen(field->class->name));
81 1 12 if (value) {
82 1 0 sv_catpv(sv_rw_code, SvPV_nolen(value));
85 12 0 sv_catpv(sv_rw_code, SvPV_nolen(field->name));
88 13 0 sv_catpv(sv_rw_code, SvPV_nolen(field->name));
91 13 0 sv_catpv(sv_rw_code, SvPV_nolen(field->name));
95 13 0 Perl_eval_pv(aTHX_ SvPV_nolen(sv_rw_code), 1);