Red.git | docs/coverage/report-data/ | Red-Utils.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>RaCoCo result: Red::Utils</title>
<link rel="stylesheet"
href="https://stackpath.bootstrapcdn.com/bootstrap/4.4.1/css/bootstrap.min.css"
integrity="sha384-Vkoo8x4CGsO3+Hhxv8T/Q5PaXtkKtu6ug5TOeNV6gBiFeWPGFN9MuhOf23Q9Ifjh"
crossorigin="anonymous">
<style>
pre.code::before {
counter-reset: listing;
}
pre.code span {
counter-increment: listing;
}
pre.code span::before {
content: counter(listing) ". ";
}
.coverage-green {
background-color: #32CD32;
/*color-blind
background-color: #00CED1;
/**/
}
.coverage-red {
background-color: #fa8072;
}
.coverage-purple {
background-color: #9370DB;
}
</style>
</head>
<body>
<div class="container">
<div class="row mt-5 mb-3">
<div class="col-12">
<div class="page-header">
<h1>Red::Utils 53.3%</h1>
</div>
</div>
</div>
<div class="row justify-content-md-center">
<div class="col-md-10">
<pre class="code">
<span class="coverage-green">use Red::AST;</span>
<span class="coverage-red">use Red::AST::Unary;</span>
<span class="coverage-no">=head2 Red::Utils</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Accepts a string and converts snake case (`foo_bar`) into kebab case (`foo-bar`).</span>
<span class="coverage-red">sub snake-to-kebab-case(Str() $_ --> Str) is export { S:g/'_'/-/ }</span>
<span class="coverage-no">#| Accepts a string and converts kebab case (`foo-bar`) into snake case (`foo_bar`).</span>
<span class="coverage-green">sub kebab-to-snake-case(Str() $_ --> Str) is export { S:g/'-'/_/ }</span>
<span class="coverage-no">#| Accepts a string and converts camel case (`fooBar`) into snake case (`foo_bar`).</span>
<span class="coverage-green">sub camel-to-snake-case(Str() $_ --> Str) is export { kebab-to-snake-case lc S:g/(\w)<?before <[A..Z]>>/$0_/ }</span>
<span class="coverage-no">#| Accepts a string and converts camel case (`fooBar`) into kebab case (`foo-bar`).</span>
<span class="coverage-red">sub camel-to-kebab-case(Str() $_ --> Str) is export { lc S:g/(\w)<?before <[A..Z]>>/$0-/ }</span>
<span class="coverage-no">#| Accepts a string and converts kebab case (`foo-bar`) into camel case (`fooBar`).</span>
<span class="coverage-red">sub kebab-to-camel-case(Str() $_ --> Str) is export { S:g/"-"(\w)/{$0.uc}/ with .wordcase }</span>
<span class="coverage-no">#| Accepts a string and converts snake case (`foo_bar`) into camel case (`fooBar`).</span>
<span class="coverage-red">sub snake-to-camel-case(Str() $_ --> Str) is export { S:g/"_"(\w)/{$0.uc}/ with .wordcase }</span>
<span class="coverage-no"></span>
<span class="coverage-green">proto compare($,$) is export {*}</span>
<span class="coverage-green">multi compare(Red::AST $a, Red::AST $b) {</span>
<span class="coverage-green"> $a eqv $b || $a === $b</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">multi compare(Red::AST::So $a, Red::AST $b) {</span>
<span class="coverage-red"> compare $a.value, $b</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi compare(Red::AST $a, Red::AST::So $b) {</span>
<span class="coverage-green"> compare $a, $b.value</span>
<span class="coverage-no">}</span>
</pre>
</div>
</div>
</div>
</body>
</html>