Branch Coverage

blib/lib/Test/Inline.pm
Criterion Covered Total %
branch 63 120 52.5


line true false branch
234 0 17 unless ($class)
260 4 13 if $params{'manifest'}
263 3 2 $params{'check_count'} >= 2 ? :
5 2 $params{'check_count'} ? :
7 10 exists $params{'check_count'} ? :
272 0 17 if ($params{'file_content'})
273 0 0 unless &Params::Util::_CODE($params{'file_content'})
274 0 0 unless $$self{'ContentHandler'} = 'Test::Inline::Content::Legacy'->new($params{'file_content'})
289 3 14 defined $params{'output'} ? :
385 0 13 unless my $source = $self->_source(shift())
386 12 1 if (ref $source) { }
414 0 0 unless my $name = shift()
419 0 0 $options{'recursive'} ? :
422 0 0 unless $files
428 0 0 unless defined $rv
456 0 1 if $@
465 0 2 unless my $files = $self->InputHandler->find(shift())
470 0 7 unless my $source = $self->InputHandler->read($file)
472 0 7 unless defined $rv
482 0 20 unless my $source = &Params::Util::_SCALAR(shift())
485 0 20 unless my $Extract = $self->ExtractHandler->new($source)
487 3 17 unless my $elements = $Extract->elements
490 1 16 unless my $Sections = 'Test::Inline::Section'->parse($elements)
497 0 49 unless my $context = $Section->context
509 0 20 if ($$Classes{$_class})
514 0 20 unless my $File = 'Test::Inline::Script'->new($_class, $classes{$_class}, $$self{'check_count'})
572 29 6 if $$self{'filenames'}
575 0 6 unless my $Algorithm = 'Algorithm::Dependency::Ordered'->new('source', $self, 'ignore_orphans', 1)
582 0 6 unless ($Algorithm->source->items)
585 0 6 unless my $schedule = $Algorithm->schedule_all
616 7 1 if $$self{'schedule'}
619 0 1 unless $self->filenames
640 0 8 unless my $schedule = $self->schedule
641 0 8 unless $$self{'manifest'}
642 0 8 unless @$schedule
650 0 8 unless defined $relative_path
654 7 1 if (length $relative_path)
678 0 4 unless $filenames
682 0 4 unless defined $manifest
683 4 0 if ($manifest)
684 4 0 if ($self->OutputHandler->write($$self{'manifest'}, $manifest)) { }
695 0 14 unless $self->_save($class)
704 0 29 unless my $filenames = $self->filenames
710 0 14 unless my $class = shift()
711 0 14 unless my $filename = $self->_file($class)
715 0 14 unless my $content = $self->_content($class)
717 14 0 if ($$self{'output'})
720 0 14 unless ($self->OutputHandler->write($filename, $content))
731 0 15 unless my $class = shift()
732 0 15 unless my $filename = $self->_file($class)
733 0 15 unless my $Script = $self->class($class)
738 0 15 unless defined $content
767 0 13 unless defined $_[0]
768 13 0 unless (ref $_[0])
769 12 1 if ($self->InputHandler->exists_file($_[0])) { }
1 0 elsif ($self->InputHandler->exists_dir($_[0])) { }
778 0 0 if (&Params::Util::_SCALAR($_[0]))
782 0 0 if (&Params::Util::_INSTANCE($_[0], 'IO::Handle'))
797 73 0 unless $$self{'verbose'}
804 0 0 if ($self->exception)