view release on metacpan or  search on metacpan

bin/ar  view on Meta::CPAN

	elsif ($opt_m) {
		# move
		my $putpos = $idx;

		# if no positional parameter, then append
		if ( !defined($idx) ) { $putpos = @$pNames; }

		# remove from current position
		@{ $pNames->[ $pAr->{$name}[0] ] } = grep( !/^$name$/, @{ $pNames->[ $pAr->{$name}[0] ] } );

		# relocate to $putpos
		$pAr->{$name}[0] = $putpos;
		push( @{ $pNames->[$putpos] }, $name );
		print "m - $name\n" if $opt_v;
		}
	elsif ($opt_p) {
		# print
		printMember( $name, $pAr, $opt_v );
		}
	elsif ($opt_q) {
		# quick append