File Coverage

blib/lib/Eidolon/Driver/DB/MySQL.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition	0	4	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	22	59.0

package Eidolon::Driver::DB::MySQL;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/DB/MySQL - MySQL DBMS driver
#
# ==============================================================================

use base qw/Eidolon::Driver::DB/;
use warnings;
use strict;

our $VERSION = "0.01"; # 2009-02-03 00:50:31

# ------------------------------------------------------------------------------
# \% new()
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $db, $user, $password, $host, $port, $cfg, $self);

    ($class, $db, $user, $password, $host, $port, $cfg) = @_;

    $self = $class->SUPER::new
    (
        "mysql", $db, $user, $password, $host || "localhost", $port || "3306", $cfg
    );

    return $self;
}

1;

__END__