#! /usr/bin/env perl6

use v6.c;

#| Render a Perl 6 program's pod structure.
sub MAIN (
	#| Path to the Perl 6 program or POD file.
	Str:D $file,
) {
	my Str $pager = %*ENV<PAGER> // ($*DISTRO.is-win ?? 'more' !! 'less -r');
	my Str $command = "'$*EXECUTABLE' --doc=Pager '$file' | $pager";

	shell $command;
}

# vim: ft=perl6 noet
