rmdir function for Perl 6

gistfile1.pl

use v6;

sub rmdir($path) {
	die "$path does not exist." unless $path.IO.e;
	die "$path is not a directory." unless $path.IO.d;
	die "$path directory is not empty." if dir $path;
	try {
		pir::new__PS('OS').rm($path);
	}
	$! ?? fail($!) !! Bool::True;
}

rmdir('/path/to/dir');