Red.git | docs/coverage/report-data/ | Red-Driver-SQLite.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>RaCoCo result: Red::Driver::SQLite</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::Driver::SQLite 83.7%</h1>
</div>
</div>
</div>
<div class="row justify-content-md-center">
<div class="col-md-10">
<pre class="code">
<span class="coverage-green">use DBIish;</span>
<span class="coverage-no">need DBDish::SQLite::Connection;</span>
<span class="coverage-no">use Red::AST;</span>
<span class="coverage-no">use Red::Driver;</span>
<span class="coverage-no">use Red::Statement;</span>
<span class="coverage-no">use Red::AST::Value;</span>
<span class="coverage-no">use Red::AST::Select;</span>
<span class="coverage-no">use Red::AST::Infixes;</span>
<span class="coverage-no">use Red::AST::Function;</span>
<span class="coverage-no">use Red::Driver::CommonSQL;</span>
<span class="coverage-no">use Red::AST::LastInsertedRow;</span>
<span class="coverage-no">use Red::AST::TableComment;</span>
<span class="coverage-no">use Red::AST::JsonItem;</span>
<span class="coverage-no">use Red::AST::JsonRemoveItem;</span>
<span class="coverage-no">use X::Red::Exceptions;</span>
<span class="coverage-no">use UUID;</span>
<span class="coverage-no">use Red::SchemaReader;</span>
<span class="coverage-no">use Red::Driver::SQLite::SchemaReader;</span>
<span class="coverage-no">use Red::Type::Json;</span>
<span class="coverage-green">unit class Red::Driver::SQLite does Red::Driver::CommonSQL;</span>
<span class="coverage-no"></span>
<span class="coverage-no">has $.database = q<:memory:>;</span>
<span class="coverage-no">has DBDish::SQLite::Connection $!dbh;</span>
<span class="coverage-no"></span>
<span class="coverage-red">method schema-reader { Red::Driver::SQLite::SchemaReader }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Data accepted by the SQLite driver constructor:</span>
<span class="coverage-no">#| dbh : DBDish::SQLite object</span>
<span class="coverage-no">#| database: File name or C<:memory:> to a in memory DB (default)</span>
<span class="coverage-green">submethod BUILD(DBDish::SQLite::Connection :$!dbh, Str :$!database = q<:memory:> ) {</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">submethod TWEAK() {</span>
<span class="coverage-green"> $!dbh //= DBIish.connect: "SQLite", :$!database;</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">class Statement does Red::Statement {</span>
<span class="coverage-green"> method stt-exec($stt, *@bind) {</span>
<span class="coverage-green"> $.driver.debug: (@bind || @!binds);</span>
<span class="coverage-green"> $stt.execute: |(@bind || @!binds);</span>
<span class="coverage-green"> $stt</span>
<span class="coverage-no"> }</span>
<span class="coverage-green"> method stt-row($stt) { $stt.row: :hash }</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">method stringify-json { True }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Begin transaction</span>
<span class="coverage-green">method begin {</span>
<span class="coverage-green"> self.prepare(Red::AST::BeginTransaction.new).map: *.execute;</span>
<span class="coverage-red"> self</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method prepare(Str $query) {</span>
<span class="coverage-green"> CATCH {</span>
<span class="coverage-green"> default {</span>
<span class="coverage-green"> self.map-exception($_).throw</span>
<span class="coverage-no"> }</span>
<span class="coverage-no"> }</span>
<span class="coverage-green"> self.debug: $query;</span>
<span class="coverage-green"> Statement.new: :driver(self), :statement($!dbh.prepare: $query);</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">method create-schema(%models where .values.all ~~ Red::Model) {</span>
<span class="coverage-green"> do for %models.kv -> Str() $name, Red::Model $model {</span>
<span class="coverage-green"> $name => $model.^create-table</span>
<span class="coverage-no"> }</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">multi method join-type("outer") { die "'OUTER JOIN' is not supported by SQLite" }</span>
<span class="coverage-red">multi method join-type("right") { die "'RIGHT JOIN' is not supported by SQLite" }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#| Does this driver accept drop table cascade?</span>
<span class="coverage-green">multi method should-drop-cascade { False }</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Value $_ where .type ~~ Bool, $context? where $_ ne "bind") {</span>
<span class="coverage-green"> (.value ?? 1 !! 0) => []</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Value $_ where { .type ~~ Json }, $context? where { !.defined || $_ ne "bind" }) {</span>
<span class="coverage-green"> self.translate:</span>
<span class="coverage-no"> Red::AST::Function.new(:func<JSON>, :args[ ast-value .value, :type(Str) ]),</span>
<span class="coverage-no"> $context</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Not $_ where { .value ~~ Red::Column and .value.attr.type !~~ Str }, $context?) {</span>
<span class="coverage-green"> my ($val, @bind) := do given self.translate: .value, $context { .key, .value }</span>
<span class="coverage-green"> "($val == 0 OR $val IS NULL)" => @bind</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::So $_ where { .value ~~ Red::Column and .value.attr.type !~~ Str }, $context?) {</span>
<span class="coverage-green"> my ($val, @bind) := do given self.translate: .value, $context { .key, .value }</span>
<span class="coverage-green"> "($val <> 0 AND $val IS NOT NULL)" => @bind</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Not $_ where { .value ~~ Red::Column and .value.attr.type ~~ Str }, $context?) {</span>
<span class="coverage-red"> my ($val, @bind) := do given self.translate: .value, $context { .key, .value }</span>
<span class="coverage-red"> "($val == '' OR $val IS NULL)" => @bind</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">multi method translate(Red::AST::So $_ where { .value ~~ Red::Column and .value.attr.type ~~ Str }, $context?) {</span>
<span class="coverage-red"> my ($val, @bind) := do given self.translate: .value, $context { .key, .value }</span>
<span class="coverage-red"> "($val <> '' AND $val IS NOT NULL)" => @bind</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::RowId $_, $context?) { "_rowid_" => [] }</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::LastInsertedRow $_, $context?) {</span>
<span class="coverage-green"> my $of = .of;</span>
<span class="coverage-green"> my $filter = Red::AST::Eq.new: Red::AST::RowId, Red::AST::Function.new: :func<last_insert_rowid>;</span>
<span class="coverage-green"> self.translate(Red::AST::Select.new: :$of, :table-list[$of], :$filter, :1limit)</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::Column $_, "column-auto-increment") { (.auto-increment ?? "AUTOINCREMENT" !! "") => [] }</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::Column $_, "column-comment") {</span>
<span class="coverage-green"> (" { self.comment-starter } $_\n" with .comment) => []</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-red">multi method translate(Red::AST::TableComment $_, $context?) {</span>
<span class="coverage-red"> (" { self.comment-starter } { .msg }" => []) with $_</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::JsonRemoveItem $_, $context?) {</span>
<span class="coverage-green"> self.translate:</span>
<span class="coverage-no"> Red::AST::Function.new:</span>
<span class="coverage-no"> :func<JSON_REMOVE>,</span>
<span class="coverage-no"> :args[</span>
<span class="coverage-no"> .left,</span>
<span class="coverage-no"> ast-value('$' ~ self.prepare-json-path-item: .right.value)</span>
<span class="coverage-no"> ],</span>
<span class="coverage-no"> :returns(Json),</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::JsonItem $_, $context?) {</span>
<span class="coverage-green"> self.translate:</span>
<span class="coverage-no"> Red::AST::Function.new:</span>
<span class="coverage-no"> :func<JSON_EXTRACT>,</span>
<span class="coverage-no"> :args[</span>
<span class="coverage-no"> .left,</span>
<span class="coverage-no"> ast-value('$' ~ self.prepare-json-path-item: .right.value)</span>
<span class="coverage-no"> ],</span>
<span class="coverage-no"> :returns(Json),</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Value $_ where { .type ~~ Pair and .value.key ~~ Red::AST::JsonItem}, "update") {</span>
<span class="coverage-green"> my $value = Red::AST::Function.new:</span>
<span class="coverage-no"> :func<JSON_SET>,</span>
<span class="coverage-no"> :args[</span>
<span class="coverage-no"> .value.key.left,</span>
<span class="coverage-no"> ast-value('$' ~ self.prepare-json-path-item(.value.key.right.value)),</span>
<span class="coverage-no"> .value.value</span>
<span class="coverage-no"> ],</span>
<span class="coverage-no"> :returns(Json),</span>
<span class="coverage-no"> ;</span>
<span class="coverage-green"> self.translate: ast-value(.value.key.left => $value), "update"</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method translate(Red::AST::Minus $ast, "multi-select-op") { "EXCEPT" => [] }</span>
<span class="coverage-no"></span>
<span class="coverage-green">method comment-on-same-statement { True }</span>
<span class="coverage-no"></span>
<span class="coverage-no">#multi method default-type-for(Red::Column $ where .attr.type ~~ Mu --> Str:D) {"varchar(255)"}</span>
<span class="coverage-green">multi method default-type-for-type(Bool --> Str:D) {"integer"}</span>
<span class="coverage-green">multi method default-type-for-type(Int --> Str:D) {"integer"}</span>
<span class="coverage-red">multi method default-type-for-type(UUID --> Str:D) {"varchar(36)"}</span>
<span class="coverage-green">multi method default-type-for-type(Json --> Str:D) {"json"}</span>
<span class="coverage-no">#multi method default-type-for(Red::Column $ where .attr.type ~~ Any --> Str:D) {"varchar(255)"}</span>
<span class="coverage-green">multi method default-type-for-type($ --> Str:D) is default {"varchar(255)"}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method inflate(Str $value, :@to!) {</span>
<span class="coverage-no"> use JSON::Fast;</span>
<span class="coverage-green"> do if @to.of =:= Mu {</span>
<span class="coverage-green"> $value.&from-json</span>
<span class="coverage-no"> } else {</span>
<span class="coverage-green"> Array[@to.of].new: $value.&from-json</span>
<span class="coverage-no"> }</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method deflate(@value) {</span>
<span class="coverage-no"> use JSON::Fast;</span>
<span class="coverage-green"> @value.&to-json: :!pretty</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method map-exception(X::DBDish::DBError $x where { (.?code == 19 or .?code == 1555 or .?code == 2067) and .native-message.starts-with: "UNIQUE constraint failed:" }) {</span>
<span class="coverage-green"> X::Red::Driver::Mapped::Unique.new:</span>
<span class="coverage-no"> :driver<SQLite>,</span>
<span class="coverage-no"> :orig-exception($x),</span>
<span class="coverage-no"> :fields($x.native-message.substr(26).split: /\s* "," \s*/)</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method map-exception(X::DBDish::DBError $x where { .?code == 1 and .native-message ~~ m:i/^table \s+ $<table>=(\w+) \s+ already \s+ exists/ }) {</span>
<span class="coverage-red"> X::Red::Driver::Mapped::TableExists.new:</span>
<span class="coverage-no"> :driver<SQLite>,</span>
<span class="coverage-no"> :orig-exception($x),</span>
<span class="coverage-no"> :table($<table>.Str)</span>
<span class="coverage-no">}</span>
<span class="coverage-no"></span>
<span class="coverage-green">multi method map-exception(X::DBDish::DBError $x where { .?code == 1 and .native-message ~~ m:i/^table \s+ \"$<table>=(\w+)\" \s+ already \s+ exists/ }) {</span>
<span class="coverage-green"> X::Red::Driver::Mapped::TableExists.new:</span>
<span class="coverage-no"> :driver<SQLite>,</span>
<span class="coverage-no"> :orig-exception($x),</span>
<span class="coverage-no"> :table($<table>.Str)</span>
<span class="coverage-no">}</span>
</pre>
</div>
</div>
</div>
</body>
</html>