Branch Coverage

blib/lib/Clownfish/CFC.pm
Criterion Covered Total %
branch 95 182 52.2


line true false branch
60 1 155 if (@_ % 2)
70 310 5 if exists $defaults->{$var}
81 2 6 unless &blessed($thing)
100 0 2 unless $either eq 'Clownfish::CFC::Model::CBlock'
101 0 2 unless verify_args(\%new_PARAMS, %args)
103 1 1 unless defined $args{'contents'}
138 0 14 unless $either eq 'Clownfish::CFC::Model::Class'
139 0 14 unless verify_args(\%create_PARAMS, %args)
169 0 0 unless $either eq 'Clownfish::CFC::Model::File'
170 0 0 unless verify_args(\%new_PARAMS, %args)
190 0 8 unless $either eq 'Clownfish::CFC::Model::FileSpec'
191 0 8 unless verify_args(\%new_PARAMS, %args)
213 0 4 unless $either eq 'Clownfish::CFC::Model::Function'
214 1 3 unless verify_args(\%new_PARAMS, %args)
236 0 2 unless $either eq 'Clownfish::CFC::Model::Hierarchy'
237 1 1 unless verify_args(\%new_PARAMS, %args)
261 1 22 unless verify_args(\%new_PARAMS, %args)
262 0 22 unless $either eq 'Clownfish::CFC::Model::Method'
284 0 1 unless verify_args(\%new_PARAMS, %args)
285 0 1 unless $either eq 'Clownfish::CFC::Model::ParamList'
308 0 12 unless verify_args(\%new_PARAMS, %args)
309 0 12 unless $either eq 'Clownfish::CFC::Model::Parcel'
322 0 3 unless verify_args(\%new_from_json_PARAMS, %args)
323 0 3 unless $either eq 'Clownfish::CFC::Model::Parcel'
333 0 1 unless verify_args(\%new_from_file_PARAMS, %args)
334 0 1 unless $either eq 'Clownfish::CFC::Model::Parcel'
345 0 36 if (not defined $thing) { }
3 33 elsif (&blessed($thing)) { }
349 0 3 unless $thing->isa('Clownfish::CFC::Model::Parcel')
355 2 31 unless ($parcel)
389 0 1 unless verify_args(\%new_PARAMS, %args)
390 0 1 unless $either eq 'Clownfish::CFC::Model::Prereq'
408 0 13 unless verify_args(\%new_PARAMS, %args)
409 0 13 unless $either eq 'Clownfish::CFC::Model::Symbol'
441 0 5 unless $either eq 'Clownfish::CFC::Model::Type'
442 0 5 unless verify_args(\%new_PARAMS, %args)
445 1 4 if $args{'const'}
446 0 5 if $args{'nullable'}
447 0 5 if $args{'void'}
448 0 5 if $args{'object'}
449 4 1 if $args{'primitive'}
450 0 5 if $args{'integer'}
451 0 5 if $args{'floating'}
452 0 5 if $args{'cfish_string'}
453 0 5 if $args{'va_list'}
454 0 5 if $args{'arbitrary'}
455 0 5 if $args{'composite'}
460 1 4 $args{'parcel'} ? :
475 0 1 unless $either eq 'Clownfish::CFC::Model::Type'
476 0 1 unless verify_args(\%new_integer_PARAMS, %args)
478 1 0 if $args{'const'}
489 0 1 unless $either eq 'Clownfish::CFC::Model::Type'
490 0 1 unless verify_args(\%new_float_PARAMS, %args)
492 1 0 if $args{'const'}
508 0 18 unless $either eq 'Clownfish::CFC::Model::Type'
509 0 18 unless verify_args(\%new_object_PARAMS, %args)
511 1 17 if $args{'incremented'}
512 1 17 if $args{'decremented'}
513 0 18 if $args{'nullable'}
514 1 17 if $args{'const'}
515 16 2 unless defined $args{'indirection'}
519 1 17 unless defined $args{'specifier'}
533 0 4 unless $either eq 'Clownfish::CFC::Model::Type'
534 0 4 unless verify_args(\%new_composite_PARAMS, %args)
536 0 4 if $args{'nullable'}
538 0 4 defined $args{'array'} ? :
546 0 2 unless $either eq 'Clownfish::CFC::Model::Type'
547 0 2 unless verify_args(\%new_void_PARAMS, %args)
553 0 1 unless $either eq 'Clownfish::CFC::Model::Type'
554 0 1 unless verify_args({}, @_)
565 0 3 unless $either eq 'Clownfish::CFC::Model::Type'
566 0 3 unless verify_args(\%new_arbitrary_PARAMS, %args)
587 0 8 unless $either eq 'Clownfish::CFC::Model::Variable'
588 1 7 unless verify_args(\%new_PARAMS, %args)
610 0 10 unless $either eq 'Clownfish::CFC::Model::Version'
611 0 10 unless verify_args(\%new_PARAMS, %args)
630 0 0 unless verify_args(\%new_PARAMS, %args)
645 0 0 unless verify_args(\%new_PARAMS, %args)
664 0 0 unless verify_args(\%write_h_PARAMS, %args)
698 0 0 unless verify_args(\%new_PARAMS, %args)
725 0 0 unless verify_args(\%new_PARAMS, %args)
726 0 0 if (exists $args{'parcel'})
740 0 0 unless verify_args(\%bind_method_PARAMS, %args)
751 0 0 unless verify_args(\%bind_constructor_PARAMS, %args)
770 0 0 unless verify_args(\%new_PARAMS, %args)
788 0 0 unless verify_args(\%new_PARAMS, %args)
808 0 0 unless verify_args(\%add_method_PARAMS, %args)
821 0 0 unless verify_args(\%add_constructor_PARAMS, %args)
859 0 16 unless verify_args(\%new_PARAMS, %args)
860 0 16 unless $either eq 'Clownfish::CFC::Test'
861 16 0 unless defined $args{'formatter_name'}