%PDF- %PDF-
Direktori : C:/xampp/perl/vendor/lib/DBIx/Class/Storage/DBI/Replicated/ |
Current File : C:/xampp/perl/vendor/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm |
package DBIx::Class::Storage::DBI::Replicated::WithDSN; use Moose::Role; use Scalar::Util 'reftype'; requires qw/_query_start/; use Try::Tiny; use namespace::clean -except => 'meta'; =head1 NAME DBIx::Class::Storage::DBI::Replicated::WithDSN - A DBI Storage Role with DSN information in trace output =head1 SYNOPSIS This class is used internally by L<DBIx::Class::Storage::DBI::Replicated>. =head1 DESCRIPTION This role adds C<DSN: > info to storage debugging output. =head1 METHODS This class defines the following methods. =head2 around: _query_start Add C<DSN: > to debugging output. =cut around '_query_start' => sub { my ($method, $self, $sql, @bind) = @_; my $dsn = (try { $self->dsn }) || $self->_dbi_connect_info->[0]; my($op, $rest) = (($sql=~m/^(\w+)(.+)$/),'NOP', 'NO SQL'); my $storage_type = $self->can('active') ? 'REPLICANT' : 'MASTER'; my $query = do { if ((reftype($dsn)||'') ne 'CODE') { "$op [DSN_$storage_type=$dsn]$rest"; } elsif (my $id = try { $self->id }) { "$op [$storage_type=$id]$rest"; } else { "$op [$storage_type]$rest"; } }; $self->$method($query, @bind); }; =head1 ALSO SEE L<DBIx::Class::Storage::DBI> =head1 FURTHER QUESTIONS? Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>. =head1 COPYRIGHT AND LICENSE This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE> by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can redistribute it and/or modify it under the same terms as the L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>. =cut 1;