[lucy-commits] svn commit: r1364851 - in /lucy/trunk/perl: buildlib/Lucy/Redacted.pm lib/Lucy.pm lib/Lucy/Object/Obj.pm t/binding/019-obj.t

[ma...@apache.org]

Author: marvin
Date: Tue Jul 24 00:11:36 2012
New Revision: 1364851

URL: http://svn.apache.org/viewvc?rev=1364851&view=rev
Log:
LUCY-242 Add compatibility stub for Obj.

Added:
    lucy/trunk/perl/lib/Lucy/Object/Obj.pm   (with props)
Modified:
    lucy/trunk/perl/buildlib/Lucy/Redacted.pm
    lucy/trunk/perl/lib/Lucy.pm
    lucy/trunk/perl/t/binding/019-obj.t

Modified: lucy/trunk/perl/buildlib/Lucy/Redacted.pm
URL: http://svn.apache.org/viewvc/lucy/trunk/perl/buildlib/Lucy/Redacted.pm?rev=1364851&r1=1364850&r2=1364851&view=diff
==============================================================================
--- lucy/trunk/perl/buildlib/Lucy/Redacted.pm (original)
+++ lucy/trunk/perl/buildlib/Lucy/Redacted.pm Tue Jul 24 00:11:36 2012
@@ -37,6 +37,7 @@ sub redacted {
         Lucy::Index::Term
         Lucy::InvIndex
         Lucy::InvIndexer
+        Lucy::Object::Obj
         Lucy::QueryParser::QueryParser
         Lucy::Search::BooleanQuery
         Lucy::Search::QueryFilter

Modified: lucy/trunk/perl/lib/Lucy.pm
URL: http://svn.apache.org/viewvc/lucy/trunk/perl/lib/Lucy.pm?rev=1364851&r1=1364850&r2=1364851&view=diff
==============================================================================
--- lucy/trunk/perl/lib/Lucy.pm (original)
+++ lucy/trunk/perl/lib/Lucy.pm Tue Jul 24 00:11:36 2012
@@ -80,6 +80,12 @@ sub error {$Clownfish::Err::error}
 }
 
 {
+    # Temporary back compat.
+    package Lucy::Object::Obj;
+    BEGIN { our @ISA = qw( Clownfish::Obj ) }
+}
+
+{
     package Lucy::Analysis::RegexTokenizer;
     our $VERSION = '0.003000';
     $VERSION = eval $VERSION;

Added: lucy/trunk/perl/lib/Lucy/Object/Obj.pm
URL: http://svn.apache.org/viewvc/lucy/trunk/perl/lib/Lucy/Object/Obj.pm?rev=1364851&view=auto
==============================================================================
--- lucy/trunk/perl/lib/Lucy/Object/Obj.pm (added)
+++ lucy/trunk/perl/lib/Lucy/Object/Obj.pm Tue Jul 24 00:11:36 2012
@@ -0,0 +1,36 @@
+# Licensed to the Apache Software Foundation (ASF) under one or more
+# contributor license agreements.  See the NOTICE file distributed with
+# this work for additional information regarding copyright ownership.
+# The ASF licenses this file to You under the Apache License, Version 2.0
+# (the "License"); you may not use this file except in compliance with
+# the License.  You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+package Lucy::Object::Obj;
+use Lucy;
+our $VERSION = '0.003000';
+$VERSION = eval $VERSION;
+
+1;
+
+__END__
+
+__POD__
+
+=head1 NAME
+
+Lucy::Object::Obj - Moved.
+
+=head1 MOVED 
+
+Lucy::Object::Obj has been moved to Clownfish::Obj.
+
+=cut
+

Propchange: lucy/trunk/perl/lib/Lucy/Object/Obj.pm
------------------------------------------------------------------------------
    svn:eol-style = native

Modified: lucy/trunk/perl/t/binding/019-obj.t
URL: http://svn.apache.org/viewvc/lucy/trunk/perl/t/binding/019-obj.t?rev=1364851&r1=1364850&r2=1364851&view=diff
==============================================================================
--- lucy/trunk/perl/t/binding/019-obj.t (original)
+++ lucy/trunk/perl/t/binding/019-obj.t Tue Jul 24 00:11:36 2012
@@ -16,7 +16,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 19;
 
 package TestObj;
 use base qw( Clownfish::Obj );
@@ -57,6 +57,9 @@ use base qw( Clownfish::Obj );
     sub dump { }
 }
 
+package LegacyObj;
+use base qw( Lucy::Object::Obj );
+
 package main;
 use Storable qw( freeze thaw );
 
@@ -75,6 +78,9 @@ ok( !$object->is_a("Lucy"),             
 ok( !$object->is_a(""),                 "custom is_a blank" );
 ok( !$object->is_a("thing"),            "custom is_a wrong" );
 
+my $legacy_obj = LegacyObj->new;
+ok( $object->is_a("Clownfish::Obj"), "stub compat class Lucy::Object::Obj" );
+
 eval { my $another_obj = TestObj->new( kill_me_now => 1 ) };
 like( $@, qr/kill_me_now/, "reject bad param" );