Branch Coverage

blib/lib/Passwd/Unix.pm
Criterion Covered Total %
branch 40 292 13.7


line true false branch
108 0 0 if $self->{'wrn'}
119 0 0 if $sec =~ /^\d$/o
120 0 0 if $min =~ /^\d$/o
121 0 0 if $hour =~ /^\d$/o
122 0 0 if $mday =~ /^\d$/o
123 0 0 if $mon =~ /^\d$/o
132 0 0 unless $self->{'bck'}
137 0 0 if ($dir->exists) { }
138 0 0 if $dir->is_file
148 0 0 if ($self->{'cmp'}) { }
151 0 0 unless bzip2($src->stringify, $dst->stringify)
163 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
167 0 0 unless @val
169 0 0 unless open my $fhd, ">>", $self->{'gsh'}
174 0 0 unless $self->_bck
203 0 0 if $ary[$idx][0] ne $val
209 0 0 if ($yra[$sav][0] eq $val) { }
213 0 0 if $yra[$idx][0] ne $val
228 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
232 0 0 unless @val
234 0 0 unless open my $fhd, ">>", $self->{'psh'}
239 0 0 unless $self->_bck
269 0 0 if $ary[$idx][0] ne $val
275 0 0 if ($yra[$sav][0] eq $val) { }
279 0 0 if $yra[$idx][0] ne $val
318 0 0 unless $ary[$idx][3] =~ /\b$val\b/
323 0 0 unless $ary[$idx][3] =~ /\b$val\b/
333 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
337 0 0 unless defined $usr and defined $val
338 0 0 unless _exs($self->{'pwd'}, $usr)
348 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
352 0 0 unless defined $usr and defined $val
353 0 0 unless _exs($self->{'pwd'}, $usr)
355 0 0 if (defined $val) { }
364 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
368 0 0 unless defined $usr and defined $val
369 0 0 unless _exs($self->{'pwd'}, $usr)
371 0 0 if (defined $val) { }
380 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
384 0 0 unless defined $usr and defined $val
385 0 0 unless _exs($self->{'pwd'}, $usr)
387 0 0 if (defined $val) { }
396 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
400 0 0 unless defined $usr and defined $val
401 0 0 unless _exs($self->{'pwd'}, $usr)
403 0 0 if (defined $val) { }
412 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
416 0 0 unless defined $usr and defined $val
417 0 0 unless _exs($self->{'pwd'}, $usr)
419 0 0 if (defined $val) { }
428 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
432 0 0 unless defined $usr and defined $val
433 0 0 unless _exs($self->{'pwd'}, $usr)
435 0 0 if (defined $val) { }
445 0 0 unless open my $fhd, ">>", $pth
449 0 0 unless $self->_bck
464 0 0 if $ary[$idx][0] ne $usr
474 0 0 unless open my $fhd, "<", $pth
478 0 0 if $tmp[0] ne $usr
488 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
493 0 0 if (@arg == 3) { }
0 0 elsif (@arg == 1) { }
494 0 0 unless open my $fhd, ">>", $self->{'gsh'}
498 0 0 unless $self->_bck
526 0 0 if (_exs($self->{'grp'}, $arg[0])) { }
529 0 0 if $ary[$idx][0] ne $arg[0]
535 0 0 if ($yra[$sav][0] eq $arg[0]) { }
539 0 0 if $yra[$idx][0] ne $arg[0]
564 0 0 unless open my $fhd, "<", $self->{'grp'}
568 0 0 if $tmp[0] ne $arg[0]
579 0 0 wantarray ? :
586 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
591 0 0 if (@arg == 7) { }
0 0 elsif (@arg == 1) { }
592 0 0 unless open my $fhd, ">>", $self->{'psh'}
596 0 0 unless $self->_bck
625 0 0 if (_exs($self->{'pwd'}, $arg[0])) { }
628 0 0 if $ary[$idx][0] ne $arg[0]
634 0 0 if ($yra[$sav][0] eq $arg[0]) { }
638 0 0 if $yra[$idx][0] ne $arg[0]
661 0 0 unless open my $fhd, "<", $self->{'pwd'}
664 0 0 if $tmp[0] ne $arg[0]
670 0 0 if @usr
673 0 0 if (open my $fhd, "<", $self->{'psh'})
676 0 0 if $tmp[0] ne $arg[0]
684 0 0 wantarray ? :
693 0 0 unless open my $fhd, "<", $pth
700 0 0 unless exists $all{$idx}
706 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
715 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
726 0 0 unless open my $fhd, "<", $pth
733 0 0 if exists $all{$min}
740 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
749 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
760 0 0 unless open my $fhd, "<", $pth
763 0 0 if $tmp[2] > $max
772 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
780 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
791 0 0 unless open my $fhd, "<", $pth
794 0 0 if $tmp[$pos] eq $val
803 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
807 0 0 unless defined $val
813 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
817 0 0 unless defined $val
823 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
836 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
840 0 0 unless defined $val
846 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
850 0 3 unless defined $val
852 1 2 $val eq 'sha256' ? :
0 3 $val eq 'blowfish' ? :
0 3 $val eq 'md5' ? :
863 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
867 0 3 unless defined $val
869 3 0 $val ? :
876 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
880 0 3 unless defined $val
882 2 1 $val ? :
889 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
893 0 3 unless defined $val
895 2 1 $val ? :
902 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
906 0 3 unless defined $val
908 1 2 $val ? :
915 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
919 0 3 unless defined $val
921 0 3 $val ? :
928 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
937 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
941 0 3 unless defined $val
944 0 3 if $pth->is_dir
955 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
959 0 3 unless defined $val
962 0 3 if $pth->is_dir
973 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
977 0 3 unless defined $val
980 0 3 if $pth->is_dir
991 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
995 0 3 unless defined $val
998 0 3 if $pth->is_dir
1011 0 2 unless open my $fhd, "<", $pth
1015 2 0 wantarray ? :
1020 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1027 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1034 1 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1045 1 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :