Red.git | docs/coverage/report-data/ | Red-AST-Update.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>RaCoCo result: Red::AST::Update</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::AST::Update 73.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-no">use Red::AST::Value;</span>
<span class="coverage-no">use Red::Column;</span>
<span class="coverage-no">use Red::Model;</span>
<span class="coverage-no">use X::Red::Exceptions;</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Represents an update operation</span>
<span class="coverage-green">unit class Red::AST::Update does Red::AST;</span>
<span class="coverage-no"></span>
<span class="coverage-no">has Red::Model $.model;</span>
<span class="coverage-green">has Str $.into = $!model.^table;</span>
<span class="coverage-no">has Pair @.values;</span>
<span class="coverage-red">has Red::AST $.filter;</span>
<span class="coverage-no"></span>
<span class="coverage-red">method returns { Nil }</span>
<span class="coverage-red">method args { |@!values, $.filter }</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method new(Red::Model $model) {</span>
<span class="coverage-green"> do given $model {</span>
<span class="coverage-green"> die "No data to be updated on object of type '{ .^name }'." unless .^is-dirty;</span>
<span class="coverage-green"> my Pair @values := Array[Pair].new: .^dirty-columns.keys.map({</span>
<span class="coverage-green"> .column => ast-value :type(.type), .column.deflate.(.get_value: $model),</span>
<span class="coverage-no"> });</span>
<span class="coverage-green"> my $filter = .^id-filter;</span>
<span class="coverage-green"> X::Red::UpdateNoId.new.throw without $filter;</span>
<span class="coverage-no"></span>
<span class="coverage-green"> self.bless:</span>
<span class="coverage-no"> :model($_),</span>
<span class="coverage-no"> :$filter,</span>
<span class="coverage-no"> :@values</span>
<span class="coverage-no"> }</span>
<span class="coverage-no">}</span>
<span class="coverage-red">method find-column-name {}</span>
</pre>
</div>
</div>
</div>
</body>
</html>