[Catalyst-commits] r7724 - in CatalystX-CRUD/CatalystX-CRUD/trunk:
. lib/CatalystX lib/CatalystX/CRUD
lib/CatalystX/CRUD/Iterator lib/CatalystX/CRUD/Model
lib/CatalystX/CRUD/ModelAdapter lib/CatalystX/CRUD/Object
lib/CatalystX/CRUD/Test
karpet at dev.catalyst.perl.org
karpet at dev.catalyst.perl.org
Thu May 8 19:36:35 BST 2008
Author: karpet
Date: 2008-05-08 19:36:35 +0100 (Thu, 08 May 2008)
New Revision: 7724
Modified:
CatalystX-CRUD/CatalystX-CRUD/trunk/Changes
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator/File.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/Utils.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/ModelAdapter/File.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object/File.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Controller.pm
CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Form.pm
Log:
bump version and fix Controller->rm() to check for model_adapter() and call its delete() method as advertised.
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/Changes
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/Changes 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/Changes 2008-05-08 18:36:35 UTC (rev 7724)
@@ -119,3 +119,6 @@
* added support for "x-tunneled-method" param to REST controller in addition to "_http_method".
This is for compat with Catalyst::Request::REST::ForBrowsers.
+0.27 xxx
+ * fix Controller->rm() to check for model_adapter() and call its delete() method as advertised.
+
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -11,7 +11,7 @@
__PACKAGE__->mk_accessors(qw( model_adapter ));
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
@@ -270,7 +270,12 @@
unless ( $self->precommit( $c, $o ) ) {
return 0;
}
- $o->delete;
+ if ( $self->model_adapter ) {
+ $self->model_adapter->delete( $c, $o );
+ }
+ else {
+ $o->delete;
+ }
$self->postcommit( $c, $o );
}
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator/File.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator/File.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator/File.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -3,7 +3,7 @@
use warnings;
use Carp;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Iterator.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -4,7 +4,7 @@
use Carp;
use base qw( CatalystX::CRUD );
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -8,7 +8,7 @@
use Path::Class::File;
use Class::C3;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/Utils.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/Utils.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/Utils.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -6,7 +6,7 @@
use Data::Pageset;
__PACKAGE__->mk_accessors(qw( use_ilike ne_sign ));
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -9,7 +9,7 @@
use Carp;
use Class::C3;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
__PACKAGE__->mk_accessors(qw( object_class ));
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/ModelAdapter/File.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/ModelAdapter/File.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/ModelAdapter/File.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -3,7 +3,7 @@
use warnings;
use base qw( CatalystX::CRUD::ModelAdapter );
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object/File.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object/File.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object/File.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -12,7 +12,7 @@
__PACKAGE__->mk_accessors(qw( content file ));
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Object.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -8,7 +8,7 @@
__PACKAGE__->mk_ro_accessors(qw( delegate ));
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/REST.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -5,7 +5,7 @@
use Carp;
use Class::C3;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Controller.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Controller.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Controller.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -5,7 +5,7 @@
use Carp;
use Data::Dump;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Form.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Form.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Test/Form.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -7,7 +7,7 @@
__PACKAGE__->mk_accessors(qw( params fields ));
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD.pm 2008-05-08 17:55:10 UTC (rev 7723)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD.pm 2008-05-08 18:36:35 UTC (rev 7724)
@@ -4,7 +4,7 @@
use strict;
use Catalyst::Exception;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
=head1 NAME
More information about the Catalyst-commits
mailing list