view release on metacpan or  search on metacpan

examples/mpc.pl  view on Meta::CPAN

		$x->load($ARGV[1]);
	} else {
		help;
	}
}
sub save {
	if(defined($ARGV[1])) {
		$x->save($ARGV[1]);
	} else {
		help;
	}
}
sub rm {
	if(defined($ARGV[1])) {
		$x->rm($ARGV[1]);
	} else {
		help;
	}
}
sub volume {
	if(defined($ARGV[1])) {
		$x->set_volume($ARGV[1]);
		status;
	} else {
		help;
	}
}
sub repeat {
	if(defined($ARGV[1])) {
		$x->set_repeat($ARGV[1]);
		status;
	} else {
		help;
	}
}
sub random {
	if(defined($ARGV[1])) {
		$x->set_random($ARGV[1]);
		status;
	} else {
		help;
	}
}
sub search
{
	die('No way!') if $ARGV[1] !~ /^(filename|artist|title|album)$/;
	my @list = $x->search($ARGV[1],$ARGV[2]);
	foreach my $hash (@list) 
	{
		my %song = %$hash;
		print $song{'file'}."\n";
	}
}
sub crossfade {
	if(defined($ARGV[1])) {
		$x->set_fade($ARGV[1]);
	} else {
		help;
	}
}
sub update { $x->updatedb(); }
sub version { print "mpd version: ".$x->{version}."\n"; }

# main() - Main sub
sub main
{
  status if !$ARGV[0];
  help if $ARGV[0] !~ /^(add|del|play|next|prev|pause|stop|seek|clear|shuffle|move|playlist|listall|ls|lsplaylists|load|save|rm|volume|repeat|random|search|crossfade|update|version)$/;
  goto &{ $ARGV[0] };
}

# Let's start!
main;