File Coverage

blib/lib/URI/mssql.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	8	10	80.0
condition			n/a
subroutine	4	4	100.0
pod	2	3	66.6
total	27	30	90.0

package URI::mssql;
use base 'URI::_odbc';
our $VERSION = '0.21';

sub default_port { 1433 }
sub canonical_engine { 'mssql' }

sub dbi_dsn {
    my $self   = shift;
    my $driver = shift or return $self->SUPER::dbi_dsn;
    my $lcd    = lc $driver;
    return $self->SUPER::dbi_dsn if $lcd eq 'odbc';

    my $class = $lcd eq 'ado'    ? 'URI::_ado'
        :       $lcd eq 'sybase' ? 'URI::sybase'
        :       die "Unknown driver: $driver\n";

    eval "require $class" or die;

    # Make a copy blessed into the alternate class to get its DSN.
    my $alt = bless \"$self" => $class;
    return $alt->dbi_dsn;
}

1;

=head1 Name

URI::mssql - Microsoft SQL Server database URI

=head1 Description

L format for Microsoft SQL Server.

=head1 Interface

The following differences exist compared to the C interface:

=head2 Instance Methods

=head3 C

  my $dsn = $uri->dbi_dsn;
 $dsn = $uri->dbi_dsn($driver);

Extends the implementation of C to support a driver argument. By
default, C returns a DSN appropriate for use with L. Pass
"sybase" or "ado" to instead get a DSN appropriate to L or
L, respectively. Note that DBD::ADO value is experimental and
subject to change. L.

=cut