Filter by:
File Violation Severity
gedcom BuiltinFunctions::ProhibitComplexMappings   (kritika/PerlCritic)
Map blocks should have a single statement
Notice
121
	} else {
122
		# Need top of family tree
123
		@rc = map { ($_->father() || $_->mother()) ? () : $_ } @rc;
124
		if(scalar(@rc) > 1) {
125
			my $i = 0;
126
			print join("\n", map { $i++; "$i: " . $_->as_string({ include_years => 1, middle_names => 1 }) } @rc),
127
				"\nMore than one $opts{h} found - choose a line number: ";
128
			$i = <STDIN>;
129
			chomp $i;
130
			$me = $rc[$i - 1];
131
		} else {