r60036 - in /branches/upstream/libclass-dbi-loader-relationship-perl/current: Changes META.yml Relationship.pm test.pl

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sun Jul  4 15:49:07 2010
New Revision: 60036

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60036
Log:
[svn-upgrade] new version libclass-dbi-loader-relationship-perl (1.2)

Modified:
    branches/upstream/libclass-dbi-loader-relationship-perl/current/Changes
    branches/upstream/libclass-dbi-loader-relationship-perl/current/META.yml
    branches/upstream/libclass-dbi-loader-relationship-perl/current/Relationship.pm
    branches/upstream/libclass-dbi-loader-relationship-perl/current/test.pl

Modified: branches/upstream/libclass-dbi-loader-relationship-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-loader-relationship-perl/current/Changes?rev=60036&op=diff
==============================================================================
--- branches/upstream/libclass-dbi-loader-relationship-perl/current/Changes (original)
+++ branches/upstream/libclass-dbi-loader-relationship-perl/current/Changes Sun Jul  4 15:49:07 2010
@@ -1,7 +1,4 @@
 Revision history for Perl extension Class::DBI::Loader::Relationship.
-
-1.3   Tue Nov  9 09:00:00 GMT 2005
-    - add support for mapper alias (chunzi)
 
 See
 http://cvs.simon-cozens.org/viewcvs.cgi/Class-DBI-Loader-Relationship/

Modified: branches/upstream/libclass-dbi-loader-relationship-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-loader-relationship-perl/current/META.yml?rev=60036&op=diff
==============================================================================
--- branches/upstream/libclass-dbi-loader-relationship-perl/current/META.yml (original)
+++ branches/upstream/libclass-dbi-loader-relationship-perl/current/META.yml Sun Jul  4 15:49:07 2010
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Class-DBI-Loader-Relationship
-version:      1.3
+version:      1.2
 version_from: Relationship.pm
 installdirs:  site
 requires:
@@ -9,4 +9,4 @@
     Lingua::EN::Inflect::Number:   1
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+generated_by: ExtUtils::MakeMaker version 6.21

Modified: branches/upstream/libclass-dbi-loader-relationship-perl/current/Relationship.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-loader-relationship-perl/current/Relationship.pm?rev=60036&op=diff
==============================================================================
--- branches/upstream/libclass-dbi-loader-relationship-perl/current/Relationship.pm (original)
+++ branches/upstream/libclass-dbi-loader-relationship-perl/current/Relationship.pm Sun Jul  4 15:49:07 2010
@@ -2,14 +2,14 @@
 use 5.006;
 use strict;
 use warnings;
-our $VERSION = '1.3';
+our $VERSION = '1.2';
 our $DEBUG = 0;
 
 1;
 
 =head1 NAME
 
-Class::DBI::Loader::Relationship - Easier relationship specification in CDBI::Loader
+Class::DBI::Loader::Relationship - Easier relationship specification in CDBI::L
 
 =head1 SYNOPSIS
 
@@ -28,21 +28,10 @@
     BeerDB::Pub->has_many(beers => [ BeerDB::Handpump => 'beer' ]);
     BeerDB::Beer->has_many(pubs => [ BeerDB::Handpump => 'pub' ]);
 
-
 Just say
 
     $loader->relationship( "a brewery produces beers" );
     $loader->relationship( "a pub has beers on handpumps" );
-    
-And something like ( upgraded in v1.3 )
-
-    MyApp::Page->has_a( author => 'MyApp::User' );
-    MyApp::Page->has_many( revisions => 'MyApp::PageRevision' );
-    
-Just say
-
-    $loader->relationship( "a page has an user as author" );
-    $loader->relationship( "a page has many page_revisions as revisions" );
 
 =head1 DESCRIPTION
 
@@ -87,9 +76,6 @@
     my $to = $tables{$1};
     my $to_c = $self->find_class($to);
     my $mapper = $method eq "has_many" ? to_PL($to) : to_S($to);
-	
-    $mapper = $1 if $text =~ s/\s+as\s+(\w+)$//i;
-
     if ($text =~ /($table_re)/i) {
         my $via = $tables{$1}; my $via_c = $self->find_class($via);
         return "$via_c->has_a(".to_S($from)." => $from_c)\n".
@@ -117,8 +103,6 @@
 
 Simon Cozens, C<simon at cpan.org>
 
-Chunzi, C<chunzi at perlchina.org>
-
 =head1 SEE ALSO
 
 L<Class::DBI::Loader>.

Modified: branches/upstream/libclass-dbi-loader-relationship-perl/current/test.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-dbi-loader-relationship-perl/current/test.pl?rev=60036&op=diff
==============================================================================
--- branches/upstream/libclass-dbi-loader-relationship-perl/current/test.pl (original)
+++ branches/upstream/libclass-dbi-loader-relationship-perl/current/test.pl Sun Jul  4 15:49:07 2010
@@ -32,5 +32,3 @@
 EOF
 
 test("pubs have beer on handpumps", $crib2);
-
-test("a brewery has a beer as another_beer", "BeerDB::Brewery->has_a(another_beer => BeerDB::Beer);\n");