Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (12 sloc) 0.295 kb
use v6;
# Usage: perl6 add-test-stubs <file.t> ...
use Test::Ix;
for @*ARGS -> $file {
if ! $file ~~ :f {
warn "Could not find $file -- skipping";
next;
}
my $new-contents = inject-subs-in-file($file);
my $fh = open($file, :w);
$fh.print($new-contents);
}
Jump to Line
Something went wrong with that request. Please try again.