Branch Coverage

blib/lib/Passwd/Unix.pm
Criterion Covered Total %
branch 44 300 14.6


line true false branch
109 0 0 if $self->{'wrn'}
120 0 0 if $sec =~ /^\d$/o
121 0 0 if $min =~ /^\d$/o
122 0 0 if $hour =~ /^\d$/o
123 0 0 if $mday =~ /^\d$/o
124 0 0 if $mon =~ /^\d$/o
133 0 0 unless $self->{'bck'}
138 0 0 if ($dir->exists) { }
139 0 0 if $dir->is_file
149 0 0 if ($self->{'cmp'}) { }
152 0 0 unless bzip2($src->stringify, $dst->stringify)
164 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
168 0 0 unless @val
170 0 0 unless open my $fhd, ">>", $self->{'gsh'}
175 0 0 unless $self->_bck
204 0 0 if $ary[$idx][0] ne $val
210 0 0 if ($yra[$sav][0] eq $val) { }
214 0 0 if $yra[$idx][0] ne $val
229 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
233 0 0 unless @val
235 0 0 unless open my $fhd, ">>", $self->{'psh'}
240 0 0 unless $self->_bck
270 0 0 if $ary[$idx][0] ne $val
276 0 0 if ($yra[$sav][0] eq $val) { }
280 0 0 if $yra[$idx][0] ne $val
319 0 0 unless $ary[$idx][3] =~ /\b$val\b/
324 0 0 unless $ary[$idx][3] =~ /\b$val\b/
334 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
338 0 0 unless defined $usr and defined $val
339 0 0 unless _exs($self->{'pwd'}, $usr)
349 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
353 0 0 unless defined $usr and defined $val
354 0 0 unless _exs($self->{'pwd'}, $usr)
356 0 0 if (defined $val) { }
365 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
369 0 0 unless defined $usr and defined $val
370 0 0 unless _exs($self->{'pwd'}, $usr)
372 0 0 if (defined $val) { }
381 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
385 0 0 unless defined $usr and defined $val
386 0 0 unless _exs($self->{'pwd'}, $usr)
388 0 0 if (defined $val) { }
397 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
401 0 0 unless defined $usr and defined $val
402 0 0 unless _exs($self->{'pwd'}, $usr)
404 0 0 if (defined $val) { }
413 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
417 0 0 unless defined $usr and defined $val
418 0 0 unless _exs($self->{'pwd'}, $usr)
420 0 0 if (defined $val) { }
429 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
433 0 0 unless defined $usr and defined $val
434 0 0 unless _exs($self->{'pwd'}, $usr)
436 0 0 if (defined $val) { }
446 0 0 unless open my $fhd, ">>", $pth
450 0 0 unless $self->_bck
465 0 0 if $ary[$idx][0] ne $usr
475 0 0 unless open my $fhd, "<", $pth
479 0 0 if $tmp[0] ne $usr
489 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
494 0 0 if (@arg == 3) { }
0 0 elsif (@arg == 1) { }
495 0 0 unless open my $fhd, ">>", $self->{'gsh'}
499 0 0 unless $self->_bck
527 0 0 if (_exs($self->{'grp'}, $arg[0])) { }
530 0 0 if $ary[$idx][0] ne $arg[0]
536 0 0 if ($yra[$sav][0] eq $arg[0]) { }
540 0 0 if $yra[$idx][0] ne $arg[0]
565 0 0 unless open my $fhd, "<", $self->{'grp'}
569 0 0 if $tmp[0] ne $arg[0]
580 0 0 wantarray ? :
587 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
592 0 0 if (@arg == 7) { }
0 0 elsif (@arg == 1) { }
593 0 0 unless open my $fhd, ">>", $self->{'psh'}
597 0 0 unless $self->_bck
626 0 0 if (_exs($self->{'pwd'}, $arg[0])) { }
629 0 0 if $ary[$idx][0] ne $arg[0]
635 0 0 if ($yra[$sav][0] eq $arg[0]) { }
639 0 0 if $yra[$idx][0] ne $arg[0]
662 0 0 unless open my $fhd, "<", $self->{'pwd'}
665 0 0 if $tmp[0] ne $arg[0]
671 0 0 if @usr
674 0 0 if (open my $fhd, "<", $self->{'psh'})
677 0 0 if $tmp[0] ne $arg[0]
685 0 0 wantarray ? :
694 0 0 unless open my $fhd, "<", $pth
701 0 0 unless exists $all{$idx}
707 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
716 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
727 0 0 unless open my $fhd, "<", $pth
734 0 0 if exists $all{$min}
741 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
750 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
761 0 0 unless open my $fhd, "<", $pth
764 0 0 if $tmp[2] > $max
773 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
781 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
792 0 0 unless open my $fhd, "<", $pth
795 0 0 if $tmp[$pos] eq $val
804 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
808 0 0 unless defined $val
814 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
818 0 0 unless defined $val
824 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
837 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
841 0 0 unless defined $val
847 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
851 0 3 unless defined $val
853 1 2 $val eq 'sha256' ? :
0 3 $val eq 'blowfish' ? :
0 3 $val eq 'md5' ? :
864 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
868 0 3 unless defined $val
870 3 0 $val ? :
877 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
881 0 3 unless defined $val
883 2 1 $val ? :
890 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
894 0 3 unless defined $val
896 2 1 $val ? :
903 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
907 0 3 unless defined $val
909 1 2 $val ? :
916 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
920 0 3 unless defined $val
922 0 3 $val ? :
929 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
938 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
942 0 3 unless defined $val
945 0 3 if $pth->is_dir
947 0 3 unless $pth->exists
956 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
960 0 3 unless defined $val
963 0 3 if $pth->is_dir
965 0 3 unless $pth->exists
974 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
978 0 3 unless defined $val
981 0 3 if $pth->is_dir
983 0 3 unless $pth->exists
992 3 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
996 0 3 unless defined $val
999 0 3 if $pth->is_dir
1001 0 3 unless $pth->exists
1012 0 2 unless open my $fhd, "<", $pth
1016 2 0 wantarray ? :
1021 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1028 0 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1035 1 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :
1046 1 0 scalar @_ && ref $_[0] eq 'Passwd::Unix' ? :