From: Norbert Csongradi Date: Sat, 20 Oct 2007 15:27:52 +0000 (+0200) Subject: Added set_schema and fixed previously bad calls ($self->$_). X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b21c682fe10df23f310baed4a5817b2de2c24ba;p=dbsrgits%2FDBIx-Class-Historic.git Added set_schema and fixed previously bad calls ($self->$_). --- diff --git a/lib/DBIx/Class/Storage/DBI/Replication.pm b/lib/DBIx/Class/Storage/DBI/Replication.pm index d588373..bc3a881 100644 --- a/lib/DBIx/Class/Storage/DBI/Replication.pm +++ b/lib/DBIx/Class/Storage/DBI/Replication.pm @@ -122,22 +122,12 @@ sub build_datetime_parser { shift->read_source->build_datetime_parser( @_ ); } -sub limit_dialect { - my $self = shift; - $self->$_->limit_dialect( @_ ) for( $self->all_sources ); -} -sub quote_char { - my $self = shift; - $self->$_->quote_char( @_ ) for( $self->all_sources ); -} -sub name_sep { - my $self = shift; - $self->$_->quote_char( @_ ) for( $self->all_sources ); -} -sub disconnect { - my $self = shift; - $self->$_->disconnect( @_ ) for( $self->all_sources ); -} +sub limit_dialect { $_->limit_dialect( @_ ) for( shift->all_sources ) } +sub quote_char { $_->quote_char( @_ ) for( shift->all_sources ) } +sub name_sep { $_->quote_char( @_ ) for( shift->all_sources ) } +sub disconnect { $_->disconnect( @_ ) for( shift->all_sources ) } +sub set_schema { $_->set_schema( @_ ) for( shift->all_sources ) } + sub DESTROY { my $self = shift;