use v6;

unit module DBDish;
need DBIish::Common;
need DBDish::Connection;
need DBDish::StatementHandle;

role Driver does DBDish::ErrorHandling {
    has $.Version = ::?CLASS.^ver;
    has Lock $!connections-lock .= new;
    has %!connections;

    method connect(*%params --> DBDish::Connection) { ... };

    method !conn-error(:$errstr!, :$code) is hidden-from-backtrace {
        self!error-dispatch: X::DBDish::ConnectionFailed.new(
            :$code, :native-message($errstr), :$.driver-name
        );
    }

    method register-connection($con) {
        $!connections-lock.protect: {
            %!connections{$con.WHICH} = $con
        }
    }

    method unregister-connection($con) {
        $!connections-lock.protect: {
            %!connections{$con.WHICH}:delete
        }
    }

    method Connections() {
        # Return a defensive copy, since %!connections access must be done
        # while holding the lock
        $!connections-lock.protect: { %!connections.clone }
    }
}

role TypeConverter does Associative {
    has Callable %!Conversions{Mu:U} handles <AT-KEY EXISTS-KEY>;

    # The role implements the conversion
    method convert (::?CLASS:D: Str $datum, Mu:U $type) {
        my $func = self.convert-function($type);
        $func($datum);
    }
    # Return a function which will perform conversion based on the type provided
    # Since databases return the same types for each record, this information may be gathered
    # ahead of time and cached by the driver.
    method convert-function (::?CLASS:D: Mu:U $type) {
        with %!Conversions{$type} -> &converter {
            if (&converter.signature.params.any ~~ .named) {
                sub ($datum) { converter($datum, :$type) };
            } else {
                sub ($datum) { converter($datum) };
            }
        } else { # Common case
            if (Str.can($type.^name)) {
                sub ($datum) { $type($datum) };
            } else {
                sub ($datum) { $type.new($datum) };
            }
        }
    }
    method STORE(::?CLASS:D: \to_store) {
        for @(to_store) {
            when Callable { %!Conversions{$_.signature.returns} = $_ }
            when Pair { %!Conversions{::($_.key)} = $_.value }
        }
    }
}



DESCRIPTION
The DBDish module loads the generic code needed by every DBDish driver of the
Perl6 DBIish Database API


head

It is the base namespace of all drivers related packages, future drivers extensions
and documentation guidelines for DBDish driver implementors.


It is also an experiment in distributing Pod fragments in and around the
code.


A proper DBDish driver Foo needs to implement at least three classes:


- class DBDish::Foo does DBDish::Driver
- class DBDish::Foo::Connection does DBDish::Connection
- DBDish::Foo::StatementHandle does DBDish::StatementHandle


This role define the minimum interface that a driver should provide to be properly
loaded by DBIish.


The minimal declaration of a driver Foo typically start like:


unit class DBDish::Foo does DBDish::Driver;
...


This role defines the API for dynamic handling of the types of a DB system


root

Connection

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


DBDish

DESCRIPTION The DBDish module loads the generic code needed by every DBDish driver of the Perl6 DBIish Database API

Roles needed by a DBDish's driver

DBDish::Driver

DBDish::TypeConverter

SEE ALSO

DBIish v0.6.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation