[Catalyst-commits] r7808 - in Catalyst-Controller-DBIC-API/1.000/trunk: lib/Catalyst/Controller/DBIC lib/Catalyst/Controller/DBIC/API t/lib/RestTest/Controller/API/REST t/lib/RestTest/Controller/API/RPC

lukes at dev.catalyst.perl.org lukes at dev.catalyst.perl.org
Mon May 26 19:40:29 BST 2008


Author: lukes
Date: 2008-05-26 19:40:28 +0100 (Mon, 26 May 2008)
New Revision: 7808

Added:
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/REST.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm
Removed:
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/Base.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/REST.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/RPC.pm
Modified:
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Artist.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/CD.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Track.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Artist.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/CD.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm
   Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Track.pm
Log:
implemented rename

Copied: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm (from rev 7806, Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/Base.pm)
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	                        (rev 0)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -0,0 +1,47 @@
+package Catalyst::Controller::DBIC::API::Base;
+
+use strict;
+use warnings;
+use base 'Catalyst::Controller::DBIC::CRUD';
+
+sub end :Private {
+	my ($self, $c) = @_;
+
+	# check for errors
+	my $default_status;
+	if ($self->get_errors($c)) {
+		$c->stash->{response}->{messages} = $self->get_errors($c);
+		$c->stash->{response}->{success} = 'false';
+		$default_status = 400;
+	} else {
+		$c->stash->{response}->{success} = 'true';
+		$default_status = 200;
+	}
+	
+	$c->res->status( $default_status || 200 );
+
+# 	my $json_response = JSON::Syck::Dump($c->stash->{response});
+# 	$c->res->body( $json_response );
+# 	$c->log->debug($c->res->body);
+}
+
+=head2 setup
+
+Just sets $c->stash->{class_rs} to the resultset specified by the 'class' config.
+This rs is then used by all other methods.
+
+=cut  
+
+sub setup :Chained('specify.in.subclass.config') :CaptureArgs(0) :PathPart('specify.in.subclass.config') {
+	my ($self, $c) = @_;
+
+	$c->stash->{class_rs} = $c->model($self->class);
+}
+
+=head1 AUTHOR
+
+luke saunders
+
+=cut
+
+1;

Copied: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/REST.pm (from rev 7806, Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/REST.pm)
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/REST.pm	                        (rev 0)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/REST.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -0,0 +1,120 @@
+package Catalyst::Controller::DBIC::API::REST;
+
+use strict;
+use warnings;
+use base qw/Catalyst::Controller::DBIC::Base/;
+
+__PACKAGE__->config(
+						'default'   => 'text/x-json',
+						'stash_key' => 'response',
+						'map'       => {
+							'text/x-json'        => 'JSON',
+						});
+=head1 NAME
+
+Catalyst::Controller::REST::DBIC
+
+=head1 SYNOPSIS
+
+  package MyApp::Controller::REST::CD;
+
+  use base qw/Catalyst::Controller::REST::DBIC/;
+
+  ...
+
+  __PACKAGE__->config
+    ( action => { setup => { PathPart => 'cd', Chained => '/api/rest/rest_base' } },
+      class => 'TestDB::CD',
+      create_requires => ['artist', 'title', 'year' ],
+      update_allows => ['title', 'year']
+      );
+
+=head1 METHODS
+
+=head2 end
+
+=cut 
+
+sub end :Private {
+	my ($self, $c) = @_;
+
+	$self->NEXT::end($c);	
+	$c->forward('serialize');
+}
+
+# from Catalyst::Action::Serialize
+sub serialize :ActionClass('Serialize') {
+	my ($self, $c) = @_;
+
+}
+
+sub begin :Private {
+	my ($self, $c) = @_;
+
+	$c->forward('deserialize');
+	use Data::Dumper; $c->log->debug(Dumper($c->req->data));
+	$c->req->params($c->req->data);
+	$self->NEXT::begin($c);	
+}
+
+# from Catalyst::Action::Serialize
+sub deserialize :ActionClass('Deserialize') {
+	my ($self, $c) = @_;
+
+}
+
+sub object :Chained('setup') :Args(1) :PathPart('id') :ActionClass('REST') {
+	my ($self, $c, $id) = @_;
+
+	my $object = $c->stash->{class_rs}->find( $id );
+	unless ($object) {
+		$self->push_error($c, { message => "Invalid id" });
+	}
+	$c->stash->{object} = $object;
+}
+
+sub object_POST {
+	my ($self, $c) = @_;
+
+	warn 'dsdsfdsf';
+	$c->forward('update');
+}
+
+sub object_PUT {
+	my ($self, $c) = @_;
+
+	warn 'dsdsfdsf';
+	$c->forward('update');
+}
+
+sub object_DELETE {
+	my ($self, $c) = @_;
+
+	$c->forward('delete');
+}
+
+
+sub base : Chained('setup') PathPart('') ActionClass('REST') Args(0) {
+	my ( $self, $c ) = @_;
+
+}
+
+sub base_PUT {
+	my ( $self, $c ) = @_;
+
+	$c->forward('create');
+}
+
+sub base_POST {
+	my ( $self, $c ) = @_;
+
+	$c->forward('create');
+}
+
+=head1 AUTHOR
+
+luke saunders
+
+=cut
+
+1;

Copied: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm (from rev 7806, Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/RPC.pm)
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm	                        (rev 0)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -0,0 +1,175 @@
+package Catalyst::Controller::DBIC::API::RPC;
+
+use strict;
+use warnings;
+use base qw/Catalyst::Controller::DBIC::Base/;
+use JSON::Syck;
+
+__PACKAGE__->config(
+						'default'   => 'text/x-json',
+						'stash_key' => 'response',
+						'map'       => {
+							'application/x-www-form-urlencoded'        => 'JSON',
+						});
+=head1 NAME
+
+Catalyst::Controller::RPC::DBIC
+
+=head1 SYNOPSIS
+
+  package MyApp::Controller::RPC::CD;
+
+  use base qw/Catalyst::Controller::RPC::DBIC/;
+
+  ...
+
+  __PACKAGE__->config
+    ( action => { setup => { PathPart => 'cd', Chained => '/api/rpc/rest_base' } },
+      class => 'TestDB::CD',
+      create_requires => ['artist', 'title', 'year' ],
+      update_allows => ['title', 'year']
+      );
+
+=head1 METHODS
+
+=head2 end
+
+=cut 
+
+sub end :Private {
+	my ($self, $c) = @_;
+
+	$self->NEXT::end($c);	
+	$c->forward('serialize');
+}
+
+# from Catalyst::Action::Serialize
+sub serialize :ActionClass('Serialize') {
+	my ($self, $c) = @_;
+
+}
+
+=head2 object
+
+Sets the object that is used by update, delete etc which chain from this.
+
+=cut
+
+sub object :Chained('setup') :CaptureArgs(1) :PathPart('id') {
+	my ($self, $c, $id) = @_;
+
+	my $object = $c->stash->{class_rs}->find( $id );
+	unless ($object) {
+		$self->push_error($c, { message => "Invalid id" });
+	}
+	$c->stash->{object} = $object;
+}
+
+sub index : Chained('setup') PathPart('') Args(0) {
+	my ( $self, $c ) = @_;
+
+	$self->push_error($c, { message => 'Not implemented' });
+	$c->res->status( '404' );
+}
+
+=head2 create
+
+Matches cols specified in create_requires and create_allows to $c->req->params and $c->stash->{params} 
+to create a hash representing a new object which is then created.
+
+=cut
+
+sub create :Chained('setup') :PathPart('create') :Args(0) :Auth('read_write') {
+	my ($self, $c) = @_;
+
+	$self->NEXT::create($c);
+}
+
+=head2 update
+
+Matches cols specified in update_allows to $c->req->params and $c->stash->{params} 
+to create a hash which is used to update $c->stash->{object}
+
+=cut
+
+sub update :Chained('object') :PathPart('update') :Args(0) :Auth('read_write') {
+	my ($self, $c) = @_;
+
+	$self->NEXT::update($c);
+}
+
+=head2 delete
+
+	Deletes $c->stash->{object}
+
+=cut
+
+sub delete :Chained('object') :PathPart('delete') :Args(0) :Auth('read_write') {
+	my ($self, $c) = @_;
+
+	$self->NEXT::delete($c);
+}
+
+# =head2 add_to_rel
+
+# 	finds a related row and then creates the many_to_many linking row using ->add_to_$rel
+# 	This is a work in progress, it should really allow the related row to also be created
+# 	if it does not already exist.
+
+# =cut
+
+# sub add_to_rel : Chained('object') PathPart('add_to_rel') Args(1) {
+# 	my ($self, $c, $rel) = @_;
+
+# 	my $accessor = "add_to_$rel";
+# 	$self->__rel($c, $rel, $accessor);
+# }
+
+# =head2 remove_from_rel
+
+# 	finds a related row and then removes the many_to_many linking row using ->remove_from_$rel
+
+# =cut
+
+# sub remove_from_rel : Chained('object') PathPart('remove_from_rel') Args(1) {
+# 	my ($self, $c, $rel) = @_;
+
+# 	my $accessor = "remove_from_$rel";
+# 	$self->__rel($c, $rel, $accessor);
+# }
+
+# sub __rel {
+# 	my ($self, $c, $rel, $accessor) = @_;
+
+# 	my $related_rs;
+# 	# pretty grim but i want it to work for many_to_many as well (so not $source->has_relationship)
+# 	eval {
+# 		$related_rs = $c->stash->{object}->$rel;
+# 	};
+# 	if ($@) {
+# 		$c->detach( 'error', [{ message => "Invalid relationship $rel" }]);		
+# 	}
+# 	my $source = $related_rs->result_source;
+	
+# 	my %related_args = map { $_ => $c->req->params->{$_} } grep { $c->req->params->{$_} } $source->columns;
+
+# 	unless (keys %related_args) {
+# 		$c->detach( 'error', [{ message => "No valid keys passed" }]);
+# 	}
+																 
+# 	my $related_row = $related_rs->result_source->resultset->find(\%related_args);
+# 	unless ($related_row) {
+# 		$c->detach( 'error', [{ message => "Invalid related row" }]);
+# 	}
+	
+# 	$c->stash->{object}->$accessor($related_row);
+# }
+
+
+=head1 AUTHOR
+
+luke saunders
+
+=cut
+
+1;

Added: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API.pm	                        (rev 0)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -0,0 +1,14 @@
+package Catalyst::Controller::DBIC::API;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.000000';
+
+=head1 AUTHOR
+
+luke saunders
+
+=cut
+
+1;

Deleted: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/Base.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/Base.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/Base.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -1,47 +0,0 @@
-package Catalyst::Controller::DBIC::Base;
-
-use strict;
-use warnings;
-use base 'Catalyst::Controller::DBIC::CRUD';
-
-sub end :Private {
-	my ($self, $c) = @_;
-
-	# check for errors
-	my $default_status;
-	if ($self->get_errors($c)) {
-		$c->stash->{response}->{messages} = $self->get_errors($c);
-		$c->stash->{response}->{success} = 'false';
-		$default_status = 400;
-	} else {
-		$c->stash->{response}->{success} = 'true';
-		$default_status = 200;
-	}
-	
-	$c->res->status( $default_status || 200 );
-
-# 	my $json_response = JSON::Syck::Dump($c->stash->{response});
-# 	$c->res->body( $json_response );
-# 	$c->log->debug($c->res->body);
-}
-
-=head2 setup
-
-Just sets $c->stash->{class_rs} to the resultset specified by the 'class' config.
-This rs is then used by all other methods.
-
-=cut  
-
-sub setup :Chained('specify.in.subclass.config') :CaptureArgs(0) :PathPart('specify.in.subclass.config') {
-	my ($self, $c) = @_;
-
-	$c->stash->{class_rs} = $c->model($self->class);
-}
-
-=head1 AUTHOR
-
-luke saunders
-
-=cut
-
-1;

Deleted: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/REST.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/REST.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/REST.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -1,122 +0,0 @@
-package Catalyst::Controller::DBIC::REST;
-
-use strict;
-use warnings;
-use base qw/Catalyst::Controller::DBIC::Base/;
-
-our $VERSION = '1.000000';
-
-__PACKAGE__->config(
-						'default'   => 'text/x-json',
-						'stash_key' => 'response',
-						'map'       => {
-							'text/x-json'        => 'JSON',
-						});
-=head1 NAME
-
-Catalyst::Controller::REST::DBIC
-
-=head1 SYNOPSIS
-
-  package MyApp::Controller::REST::CD;
-
-  use base qw/Catalyst::Controller::REST::DBIC/;
-
-  ...
-
-  __PACKAGE__->config
-    ( action => { setup => { PathPart => 'cd', Chained => '/api/rest/rest_base' } },
-      class => 'TestDB::CD',
-      create_requires => ['artist', 'title', 'year' ],
-      update_allows => ['title', 'year']
-      );
-
-=head1 METHODS
-
-=head2 end
-
-=cut 
-
-sub end :Private {
-	my ($self, $c) = @_;
-
-	$self->NEXT::end($c);	
-	$c->forward('serialize');
-}
-
-# from Catalyst::Action::Serialize
-sub serialize :ActionClass('Serialize') {
-	my ($self, $c) = @_;
-
-}
-
-sub begin :Private {
-	my ($self, $c) = @_;
-
-	$c->forward('deserialize');
-	use Data::Dumper; $c->log->debug(Dumper($c->req->data));
-	$c->req->params($c->req->data);
-	$self->NEXT::begin($c);	
-}
-
-# from Catalyst::Action::Serialize
-sub deserialize :ActionClass('Deserialize') {
-	my ($self, $c) = @_;
-
-}
-
-sub object :Chained('setup') :Args(1) :PathPart('id') :ActionClass('REST') {
-	my ($self, $c, $id) = @_;
-
-	my $object = $c->stash->{class_rs}->find( $id );
-	unless ($object) {
-		$self->push_error($c, { message => "Invalid id" });
-	}
-	$c->stash->{object} = $object;
-}
-
-sub object_POST {
-	my ($self, $c) = @_;
-
-	warn 'dsdsfdsf';
-	$c->forward('update');
-}
-
-sub object_PUT {
-	my ($self, $c) = @_;
-
-	warn 'dsdsfdsf';
-	$c->forward('update');
-}
-
-sub object_DELETE {
-	my ($self, $c) = @_;
-
-	$c->forward('delete');
-}
-
-
-sub base : Chained('setup') PathPart('') ActionClass('REST') Args(0) {
-	my ( $self, $c ) = @_;
-
-}
-
-sub base_PUT {
-	my ( $self, $c ) = @_;
-
-	$c->forward('create');
-}
-
-sub base_POST {
-	my ( $self, $c ) = @_;
-
-	$c->forward('create');
-}
-
-=head1 AUTHOR
-
-luke saunders
-
-=cut
-
-1;

Deleted: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/RPC.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/RPC.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/RPC.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -1,177 +0,0 @@
-package Catalyst::Controller::DBIC::RPC;
-
-use strict;
-use warnings;
-use base qw/Catalyst::Controller::DBIC::Base/;
-use JSON::Syck;
-
-our $VERSION = '1.000000';
-
-__PACKAGE__->config(
-						'default'   => 'text/x-json',
-						'stash_key' => 'response',
-						'map'       => {
-							'application/x-www-form-urlencoded'        => 'JSON',
-						});
-=head1 NAME
-
-Catalyst::Controller::RPC::DBIC
-
-=head1 SYNOPSIS
-
-  package MyApp::Controller::RPC::CD;
-
-  use base qw/Catalyst::Controller::RPC::DBIC/;
-
-  ...
-
-  __PACKAGE__->config
-    ( action => { setup => { PathPart => 'cd', Chained => '/api/rpc/rest_base' } },
-      class => 'TestDB::CD',
-      create_requires => ['artist', 'title', 'year' ],
-      update_allows => ['title', 'year']
-      );
-
-=head1 METHODS
-
-=head2 end
-
-=cut 
-
-sub end :Private {
-	my ($self, $c) = @_;
-
-	$self->NEXT::end($c);	
-	$c->forward('serialize');
-}
-
-# from Catalyst::Action::Serialize
-sub serialize :ActionClass('Serialize') {
-	my ($self, $c) = @_;
-
-}
-
-=head2 object
-
-Sets the object that is used by update, delete etc which chain from this.
-
-=cut
-
-sub object :Chained('setup') :CaptureArgs(1) :PathPart('id') {
-	my ($self, $c, $id) = @_;
-
-	my $object = $c->stash->{class_rs}->find( $id );
-	unless ($object) {
-		$self->push_error($c, { message => "Invalid id" });
-	}
-	$c->stash->{object} = $object;
-}
-
-sub index : Chained('setup') PathPart('') Args(0) {
-	my ( $self, $c ) = @_;
-
-	$self->push_error($c, { message => 'Not implemented' });
-	$c->res->status( '404' );
-}
-
-=head2 create
-
-Matches cols specified in create_requires and create_allows to $c->req->params and $c->stash->{params} 
-to create a hash representing a new object which is then created.
-
-=cut
-
-sub create :Chained('setup') :PathPart('create') :Args(0) :Auth('read_write') {
-	my ($self, $c) = @_;
-
-	$self->NEXT::create($c);
-}
-
-=head2 update
-
-Matches cols specified in update_allows to $c->req->params and $c->stash->{params} 
-to create a hash which is used to update $c->stash->{object}
-
-=cut
-
-sub update :Chained('object') :PathPart('update') :Args(0) :Auth('read_write') {
-	my ($self, $c) = @_;
-
-	$self->NEXT::update($c);
-}
-
-=head2 delete
-
-	Deletes $c->stash->{object}
-
-=cut
-
-sub delete :Chained('object') :PathPart('delete') :Args(0) :Auth('read_write') {
-	my ($self, $c) = @_;
-
-	$self->NEXT::delete($c);
-}
-
-# =head2 add_to_rel
-
-# 	finds a related row and then creates the many_to_many linking row using ->add_to_$rel
-# 	This is a work in progress, it should really allow the related row to also be created
-# 	if it does not already exist.
-
-# =cut
-
-# sub add_to_rel : Chained('object') PathPart('add_to_rel') Args(1) {
-# 	my ($self, $c, $rel) = @_;
-
-# 	my $accessor = "add_to_$rel";
-# 	$self->__rel($c, $rel, $accessor);
-# }
-
-# =head2 remove_from_rel
-
-# 	finds a related row and then removes the many_to_many linking row using ->remove_from_$rel
-
-# =cut
-
-# sub remove_from_rel : Chained('object') PathPart('remove_from_rel') Args(1) {
-# 	my ($self, $c, $rel) = @_;
-
-# 	my $accessor = "remove_from_$rel";
-# 	$self->__rel($c, $rel, $accessor);
-# }
-
-# sub __rel {
-# 	my ($self, $c, $rel, $accessor) = @_;
-
-# 	my $related_rs;
-# 	# pretty grim but i want it to work for many_to_many as well (so not $source->has_relationship)
-# 	eval {
-# 		$related_rs = $c->stash->{object}->$rel;
-# 	};
-# 	if ($@) {
-# 		$c->detach( 'error', [{ message => "Invalid relationship $rel" }]);		
-# 	}
-# 	my $source = $related_rs->result_source;
-	
-# 	my %related_args = map { $_ => $c->req->params->{$_} } grep { $c->req->params->{$_} } $source->columns;
-
-# 	unless (keys %related_args) {
-# 		$c->detach( 'error', [{ message => "No valid keys passed" }]);
-# 	}
-																 
-# 	my $related_row = $related_rs->result_source->resultset->find(\%related_args);
-# 	unless ($related_row) {
-# 		$c->detach( 'error', [{ message => "Invalid related row" }]);
-# 	}
-	
-# 	$c->stash->{object}->$accessor($related_row);
-# }
-
-
-=head1 AUTHOR
-
-luke saunders
-
-=cut
-
-1;

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Artist.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Artist.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Artist.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::REST/;
+use base qw/Catalyst::Controller::DBIC::API::REST/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/CD.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/CD.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/CD.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::REST/;
+use base qw/Catalyst::Controller::DBIC::API::REST/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::REST/;
+use base qw/Catalyst::Controller::DBIC::API::REST/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Track.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Track.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/REST/Track.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::REST/;
+use base qw/Catalyst::Controller::DBIC::API::REST/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Artist.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Artist.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Artist.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::RPC/;
+use base qw/Catalyst::Controller::DBIC::API::RPC/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/CD.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/CD.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/CD.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::RPC/;
+use base qw/Catalyst::Controller::DBIC::API::RPC/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::RPC/;
+use base qw/Catalyst::Controller::DBIC::API::RPC/;
 use JSON::Syck;
 
 __PACKAGE__->config

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Track.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Track.pm	2008-05-26 18:12:12 UTC (rev 7807)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/t/lib/RestTest/Controller/API/RPC/Track.pm	2008-05-26 18:40:28 UTC (rev 7808)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller::DBIC::RPC/;
+use base qw/Catalyst::Controller::DBIC::API::RPC/;
 use JSON::Syck;
 
 __PACKAGE__->config




More information about the Catalyst-commits mailing list