Branch Coverage

blib/lib/Metabrik.pm

Criterion	Covered	Total	%
branch	0	286	0.0

line	true	false	branch
133	0	0	unless (defined $attribute)
142	0	0	if (exists $attributes->{$attribute})
160	0	0	unless (defined $command)
169	0	0	if (exists $commands->{$command})
172	0	0	if (/\|OPTIONAL/) { }
192	0	0	unless ($self->can('brik_properties'))
205	0	0	unless (exists $properties->{$key})
228	0	0	if (not exists $valid_keys{$key}) { }
	0	0	elsif ($key eq 'tags' and ref $properties->{$key} ne 'ARRAY') { }
	0	0	elsif ($key ne 'revision' and $key ne 'author' and $key ne 'license' and $key ne 'tags' and ref $properties->{$key} ne 'HASH') { }
244	0	0	if $key eq 'revision' or $key eq 'author' or $key eq 'license' or $key eq 'tags' or $key eq 'attributes_default'
247	0	0	if (ref $properties->{$key}{$subkey} ne 'ARRAY')
254	0	0	if ($error)
267	0	0	if $self->check_use_properties_done
270	0	0	unless ($self->can('brik_use_properties'))
282	0	0	unless (exists $use_properties->{$key})
305	0	0	if (not exists $valid_keys{$key}) { }
	0	0	elsif ($key eq 'tags' and ref $use_properties->{$key} ne 'ARRAY') { }
	0	0	elsif ($key ne 'revision' and $key ne 'author' and $key ne 'license' and $key ne 'tags' and ref $use_properties->{$key} ne 'HASH') { }
321	0	0	if $key eq 'revision' or $key ne 'author' and $key ne 'license' or $key eq 'tags' or $key eq 'attributes_default'
324	0	0	if (ref $use_properties->{$key}{$subkey} ne 'ARRAY')
331	0	0	if ($error)
344	0	0	unless $self->brik_check_properties
345	0	0	unless $self->brik_check_use_properties
346	0	0	unless $self->brik_check_require_modules
347	0	0	unless $self->brik_check_require_binaries
368	0	0	unless (defined $r)
369	0	0	if (defined $self->log) { }
380	0	0	unless (defined $self->log)
389	0	0	if (defined $value)
398	0	0	if (defined $value)
407	0	0	if (defined $value)
416	0	0	if $self->level < 1
425	0	0	if $self->level < 1
443	0	0	if $self->level < 1
452	0	0	if $self->level < 2
461	0	0	if $self->level < 3
483	0	0	unless (defined $r)
494	0	0	unless (defined $brik)
504	0	0	if (defined $log)
507	0	0	if (defined $glo)
510	0	0	if (defined $con)
513	0	0	if (defined $she)
524	0	0	unless (defined $brik)
534	0	0	if (defined $log)
537	0	0	if (defined $glo)
540	0	0	if (defined $con)
543	0	0	if (defined $she)
553	0	0	unless my $brik = $self->new_from_brik(@_)
555	0	0	unless $brik->brik_init
564	0	0	unless my $brik = $self->new_from_brik_no_checks(@_)
566	0	0	unless $brik->brik_init_no_checks
575	0	0	unless my $brik = $self->new(@_)
577	0	0	unless $brik->brik_init
586	0	0	unless my $brik = $self->new_no_checks(@_)
588	0	0	unless $brik->brik_init_no_checks
604	0	0	if (@as > 0)
610	0	0	unless (exists $current{$this})
617	0	0	unless ($class->can($this))
636	0	0	if (exists $class->brik_properties->{'attributes_default'})
651	0	0	if (defined $global)
655	0	0	if (exists $self->brik_properties->{'attributes'} and exists $self->brik_properties->{'attributes'}{'datadir'})
662	0	0	if (defined $datadir) { }
669	0	0	unless (-d $dir)
670	0	0	unless mkdir $dir
676	0	0	if (length $subdir)
683	0	0	unless (-d $dir)
684	0	0	unless mkdir $dir
698	0	0	if ($self->can('brik_use_properties') and exists $self->brik_use_properties->{'attributes_default'})
702	0	0	if exists $class->brik_properties->{'attributes_default'}{$attribute}
716	0	0	if (defined $require_modules) { }
730	0	0	if ($@)
740	0	0	if (@imports > 0)
742	0	0	if ($@)
754	0	0	$error ? :
762	0	0	if (defined $require_binaries) { }
778	0	0	if (-f "$path/$binary")
788	0	0	unless ($binaries_found{$binary})
794	0	0	$error ? :
805	0	0	if (@toks == 2) { }
	0	0	elsif (@toks > 2) { }
825	0	0	if (@toks == 2) { }
	0	0	elsif (@toks > 2) { }
864	0	0	unless $class =~ /^Metabrik/
888	0	0	unless (defined $tag)
894	0	0	if (exists $h{$tag})
912	0	0	if (exists $class->brik_properties->{'commands'})
914	0	0	unless $command =~ /^[a-z]/
915	0	0	if $command =~ /^cg[A-Z]/
916	0	0	if $command =~ /^_/
917	0	0	if $command =~ /^(?:a|b|import|new|SUPER::|BEGIN|isa|can|EXPORT|AA|AS|ISA|DESTROY|__ANON__)$/
936	0	0	unless $command =~ /^[a-z]/
937	0	0	if $command =~ /^cg[A-Z]/
938	0	0	if $command =~ /^_/
939	0	0	if $command =~ /^(?:a|b|import|new|SUPER::|BEGIN|isa|can|EXPORT|AA|AS|ISA|DESTROY|__ANON__)$/
959	0	0	if $class eq 'Metabrik'
960	0	0	if $class eq $own_class
961	0	0	if (exists $class->brik_properties->{'commands'})
963	0	0	unless $command =~ /^[a-z]/
964	0	0	if $command =~ /^cg[A-Z]/
965	0	0	if $command =~ /^_/
966	0	0	if $command =~ /^(?:a|b|import|new|SUPER::|BEGIN|isa|can|EXPORT|AA|AS|ISA|DESTROY|__ANON__)$/
982	0	0	if (exists $self->brik_properties->{'commands'})
984	0	0	unless $command =~ /^[a-z]/
985	0	0	if $command =~ /^cg[A-Z]/
986	0	0	if $command =~ /^_/
987	0	0	if $command =~ /^(?:a|b|import|new|SUPER::|BEGIN|isa|can|EXPORT|AA|AS|ISA|DESTROY|__ANON__)$/
1002	0	0	unless (defined $command)
1006	0	0	if (exists $self->brik_commands->{$command})
1024	0	0	if (exists $class->brik_properties->{'attributes'})
1026	0	0	unless $attribute =~ /^[a-z]/
1027	0	0	if $attribute =~ /^_/
1044	0	0	unless $attribute =~ /^[a-z]/
1045	0	0	if $attribute =~ /^_/
1063	0	0	if $class eq 'Metabrik'
1064	0	0	if $class eq $own_class
1065	0	0	if (exists $class->brik_properties->{'attributes'})
1067	0	0	unless $attribute =~ /^[a-z]/
1068	0	0	if $attribute =~ /^_/
1084	0	0	if (exists $self->brik_properties->{'attributes'})
1086	0	0	unless $attribute =~ /^[a-z]/
1087	0	0	if $attribute =~ /^_/
1100	0	0	unless (defined $attribute)
1104	0	0	if (exists $self->brik_attributes->{$attribute})
1115	0	0	unless (defined $module)
1120	0	0	if ($@)
1131	0	0	unless (defined $binary)
1137	0	0	if (-f "$path/$binary")
1150	0	0	if $self->preinit_done
1153	0	0	unless (defined $r)
1161	0	0	unless (defined $r)
1168	0	0	unless (defined $r)
1181	0	0	if $self->preinit_done
1184	0	0	unless (defined $r)
1191	0	0	unless (defined $r)
1234	0	0	unless (defined $argument)
1249	0	0	unless (defined $argument)
1266	0	0	unless (exists $values->{$ref})
1282	0	0	if (ref $argument ne 'ARRAY')
1286	0	0	if (@$argument <= 0)
1301	0	0	unless (-f $argument)
1316	0	0	unless (-d $argument)
1331	0	0	if ($< != 0)