1 2 3 4 5 6 7 8 9
use Pod::Usage; # ... if ( $option eq 'help' ) { Pod::Usage::pod2usage( { -exitval => 'NOEXIT', -verbose => 2 } ); }
1 2 3
my $proc = run 'perl6', '--doc', $file, :out; my $t = $proc.out.slurp-rest; say $t;
perl6 --doc JSON::Tiny
QuoteCould not open JSON::Tiny. Failed to stat file: no such file or directory