[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