[Jifty-commit] r910 - in Jifty-DBI/trunk: lib/Jifty/DBI
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Mon Apr 24 12:59:17 EDT 2006
Author: jesse
Date: Mon Apr 24 12:59:17 2006
New Revision: 910
Modified:
Jifty-DBI/trunk/ (props changed)
Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm
Log:
r11849 at hualien: jesse | 2006-04-24 12:54:36 -0400
Eric Wilhelm updated his earlier patch to use Class::ReturnValue
Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm (original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm Mon Apr 24 12:59:17 2006
@@ -198,9 +198,15 @@
elsif (
UNIVERSAL::isa( $column->refers_to, "Jifty::DBI::Collection" ) )
{ # XXX elw: collections land here, now what?
- $subref = sub {
- return (0, "Collection column '$column_name' not writable")
- };
+ my $ret = Class::ReturnValue->new();
+ my $message = "Collection column '$column_name' not writable";
+ $ret->as_array( 0, $message );
+ $ret->as_error(
+ errno => 3,
+ do_backtrace => 0,
+ message => $message
+ );
+ $subref = sub { return ( $ret->return_value ); };
}
else {
$subref = sub {
@@ -208,7 +214,15 @@
};
} }
else {
- $subref = sub { return (0, 'Immutable column') } ;
+ my $ret = Class::ReturnValue->new();
+ my $message = 'Immutable column';
+ $ret->as_array( 0, $message );
+ $ret->as_error(
+ errno => 3,
+ do_backtrace => 0,
+ message => $message
+ );
+ $subref = sub { return ( $ret->return_value ); };
}
*{$package."::" . "set_" . $column_name } = $subref;
}
More information about the Jifty-commit
mailing list