From: David Kamholz Date: Wed, 22 Nov 2006 22:23:59 +0000 (+0000) Subject: change monkier => moniker X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3441fd57f3e40b9862f41618b49178f66de1a4d8;p=dbsrgits%2FDBIx-Class-Historic.git change monkier => moniker --- diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm index 824f973..c87a13c 100644 --- a/lib/DBIx/Class/ResultSet.pm +++ b/lib/DBIx/Class/ResultSet.pm @@ -1556,7 +1556,7 @@ sub related_resultset { my $rel_obj = $self->result_source->relationship_info($rel); $self->throw_exception( - "search_related: result source '" . $self->_source_handle->source_monkier . + "search_related: result source '" . $self->_source_handle->source_moniker . "' has no such relationship $rel") unless $rel_obj; diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm index aa14aa6..c577684 100644 --- a/lib/DBIx/Class/ResultSource.pm +++ b/lib/DBIx/Class/ResultSource.pm @@ -1010,7 +1010,7 @@ L. sub handle { return new DBIx::Class::ResultSourceHandle({ schema => $_[0]->schema, - source_monkier => $_[0]->source_name + source_moniker => $_[0]->source_name }); } diff --git a/lib/DBIx/Class/ResultSourceHandle.pm b/lib/DBIx/Class/ResultSourceHandle.pm index 2621610..60118b8 100644 --- a/lib/DBIx/Class/ResultSourceHandle.pm +++ b/lib/DBIx/Class/ResultSourceHandle.pm @@ -7,10 +7,10 @@ use Storable; use base qw/DBIx::Class/; use overload - q/""/ => sub { __PACKAGE__ . ":" . shift->source_monkier; }, + q/""/ => sub { __PACKAGE__ . ":" . shift->source_moniker; }, fallback => 1; -__PACKAGE__->mk_group_accessors('simple' => qw/schema source_monkier/); +__PACKAGE__->mk_group_accessors('simple' => qw/schema source_moniker/); =head1 NAME @@ -55,11 +55,11 @@ sub new { =head2 resolve -Resolve the monkier into the actual ResultSource object +Resolve the moniker into the actual ResultSource object =cut -sub resolve { return $_[0]->schema->source($_[0]->source_monkier) } +sub resolve { return $_[0]->schema->source($_[0]->source_moniker) } sub STORABLE_freeze { my ($self, $cloning) = @_;