para

need DBDish;

use NativeCall;

unit class DBDish::mysql:ver($?DISTRIBUTION.meta<ver>):api($?DISTRIBUTION.meta<api>):auth($?DISTRIBUTION.meta<auth>) does DBDish::Driver;
use DBDish::mysql::Native;
need DBDish::mysql::Connection;
use NativeLibs;

has $.library;
has $.library-resolved = False;

method connect(Str :$host = 'localhost', Int :$port = 3306, Str :$database = 'mysql', Str :$user, Str :$password, Str :$socket,
               Int :$connection-timeout, Int :$read-timeout, Int :$write-timeout ) {
    my $connection;
    my $mysql-client = MYSQL.mysql_init;
    my $errstr  = $mysql-client.mysql_error;

    unless $errstr {

        with $connection-timeout {
            my uint32 $value = $_;
            $mysql-client.mysql_options: MYSQL_OPT_CONNECT_TIMEOUT, $value
        }

        with $read-timeout {
            my uint32 $value = $_;
            $mysql-client.mysql_options: MYSQL_OPT_READ_TIMEOUT, $value
        }

        with $write-timeout {
            my uint32 $value = $_;
            $mysql-client.mysql_options: MYSQL_OPT_WRITE_TIMEOUT, $value
        }

        # real_connect() returns either the same client pointer or null
        my $result   = $mysql-client.mysql_real_connect(
            $host, $user, $password, $database, $port, $socket, 0
        );

        unless $errstr = $mysql-client.mysql_error {
            $mysql-client.mysql_set_character_set('utf8'); # A sane default
            $connection = DBDish::mysql::Connection.new(
                :$mysql-client, :parent(self), :$host, :$user, :$password, :$database, :$port, :$socket
            );
        }
    }
    $errstr ?? self!conn-error(:$errstr) !! $connection;
}

my $wks = 'mysql_init'; # A well known symbol
method new() {
    with (%*ENV<DBIISH_MYSQL_LIB> andthen NativeLibs::Searcher.try-versions($_, $wks,0..99))
    //   NativeLibs::Searcher.try-versions('mariadb', $wks, 0..4)
    //   NativeLibs::Searcher.try-versions('mysqlclient', $wks, 16..21)
    {
        %_<library> = NativeLibs::Loader.load($_);
        %_<library-resolved> = True;
        try mysql_server_init(0, Pointer, Pointer);
    }
    self.bless(|%_);
}

method version() {
    try Version.new(mysql_get_client_info);
}



DESCRIPTION'DBIish' and 'DBDish::mysql' are Perl 6 modules that use NativeCall
# to use the standard mysqlclient library. There is a long term Rakudo
# based project to develop a new, comprehensive DBI architecture for
# Perl 6.  DBIish is not that, it is a naive rewrite of the
# similarly named Perl 5 modules.


head

CLASSES
The DBDish::mysql module contains the same classes and methods as every
database driver.  Therefore read the main documentation of usage in
L<doc:DBIish> and internal architecture in L<doc:DBDish>.  Below are
only notes about code unique to the DBDish::mysql implementation.


SEE ALSO
The MySQL 5.1 Reference Manual, C API.
L<http://dev.mysql.com/doc/refman/5.1/en/c-api-function-overview.html>


root

DBDish

StatementHandle

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<AI|file:../mcp/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<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=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>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=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/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


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


mysql

CLASSES The DBDish::mysql module contains the same classes and methods as every database driver. Therefore read the main documentation of usage in DBIish and internal architecture in DBDish. Below are only notes about code unique to the DBDish::mysql implementation.

SEE ALSO The MySQL 5.1 Reference Manual, C API. http://dev.mysql.com/doc/refman/5.1/en/c-api-function-overview.html

DBIish v0.6.9

Authors

License

Dependencies

Test Dependencies

Provides

Documentation