X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBIx%2FClass.pm;h=e197491aafcc52063228a5e03fc47b71c31e17a8;hb=a2bd379666d729133d65c85dc775627937084b18;hp=c84f73ee9f2b7449b9a926b3771e548c9187d491;hpb=e089c417ce04bb60a7d0644cb858f83049e64684;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm index c84f73e..e197491 100644 --- a/lib/SQL/Translator/Parser/DBIx/Class.pm +++ b/lib/SQL/Translator/Parser/DBIx/Class.pm @@ -173,7 +173,7 @@ sub parse { my $relsource = try { $source->related_source($rel) }; unless ($relsource) { - carp "Ignoring relationship '$rel' - related resultsource '$rel_info->{class}' is not registered with this schema\n"; + carp "Ignoring relationship '$rel' on '$moniker' - related resultsource '$rel_info->{class}' is not registered with this schema\n"; next; }; @@ -192,7 +192,7 @@ sub parse { for ( keys %{$rel_info->{cond}} ) { unless (exists $other_columns_idx{$_}) { - carp "Ignoring relationship '$rel' - related resultsource does not contain one of the specified columns: '$_'\n"; + carp "Ignoring relationship '$rel' on '$moniker' - related resultsource '@{[ $relsource->source_name ]}' does not contain one of the specified columns: '$_'\n"; next REL; } } @@ -528,12 +528,13 @@ Limit the amount of parsed sources by supplying an explicit list of source names L, L -=head1 AUTHORS +=head1 FURTHER QUESTIONS? -See L. +Check the list of L. -=head1 LICENSE +=head1 COPYRIGHT AND LICENSE -You may distribute this code under the same terms as Perl itself. - -=cut +This module is free software L +by the L. You can +redistribute it and/or modify it under the same terms as the +L.