Filter by:
File Violation Severity
gedcom BuiltinFunctions::ProhibitComplexMappings   (kritika/PerlCritic)
Map blocks should have a single statement
Notice
136
	} elsif(!$opts{'x'}) {
137
		# Need top of family tree
138
		@rc = map { ($_->father() || $_->mother()) ? () : $_ } @rc;
139
		if(scalar(@rc) > 1) {
140
			my $i = 0;
141
			print join("\n", map { $i++; "$i: " . $_->as_string({ include_years => 1, middle_names => 1 }) } @rc),
142
				"\nMore than one $opts{h} found - choose a line number: ";
143
			$i = <STDIN>;
144
			chomp $i;
145
			$me = $rc[$i - 1];
146
		} else {