Make &svg-for-file 7x faster

zoffixznet · zoffixznet · commit ac14f6f7f08b · 2018-04-02T04:52:03.000-04:00
diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6
@@ -113,7 +113,7 @@ sub footer-html($pod-path) is export {
 
 #| Return the SVG for the given file, without its XML header
 sub svg-for-file($file) is export {
-    join "\n", grep { /^'<svg'/ ff False }, $file.IO.lines;
+    .substr: .index: '<svg' given $file.IO.slurp;
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6

Original file line number	Diff line number	Diff line change
`@@ -113,7 +113,7 @@ sub footer-html($pod-path) is export {`
`113`	`113`
`114`	`114`	`#\| Return the SVG for the given file, without its XML header`
`115`	`115`	`sub svg-for-file($file) is export {`
`116`		`- join "\n", grep { /^'<svg'/ ff False }, $file.IO.lines;`
	`116`	`+ .substr: .index: '<svg' given $file.IO.slurp;`
`117`	`117`	`}`
`118`	`118`
`119`	`119`	`# vim: expandtab shiftwidth=4 ft=perl6`