You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2009/10/26 00:44:07 UTC
svn commit: r829679 - in /lucene/lucy/trunk/perl/lib: Lucy.pm
Lucy/Util/ToolSet.pm
Author: marvin
Date: Sun Oct 25 23:44:06 2009
New Revision: 829679
URL: http://svn.apache.org/viewvc?rev=829679&view=rev
Log:
Add Perl-specific Lucy::Util::ToolSet functionality.
Added:
lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm (with props)
Modified:
lucene/lucy/trunk/perl/lib/Lucy.pm
Modified: lucene/lucy/trunk/perl/lib/Lucy.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/lib/Lucy.pm?rev=829679&r1=829678&r2=829679&view=diff
==============================================================================
--- lucene/lucy/trunk/perl/lib/Lucy.pm (original)
+++ lucene/lucy/trunk/perl/lib/Lucy.pm Sun Oct 25 23:44:06 2009
@@ -13,6 +13,26 @@
use Lucy::Autobinding;
{
+ package Lucy::Util::ToolSet;
+ use Carp qw( carp croak cluck confess );
+ use Scalar::Util qw( blessed );
+ use Storable qw( nfreeze thaw );
+
+ BEGIN {
+ push our @ISA, 'Exporter';
+ our @EXPORT_OK = qw(
+ carp
+ croak
+ cluck
+ confess
+ blessed
+ nfreeze
+ thaw
+ );
+ }
+}
+
+{
package Lucy::Object::Err;
sub do_to_string { shift->to_string }
use Carp qw( longmess );
Added: lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm?rev=829679&view=auto
==============================================================================
--- lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm (added)
+++ lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm Sun Oct 25 23:44:06 2009
@@ -0,0 +1,24 @@
+use Lucy;
+
+1;
+
+__END__
+
+__COPYRIGHT__
+
+ /**
+ * Copyright 2009 The Apache Software Foundation
+ *
+ * Licensed 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.
+ */
+
Propchange: lucene/lucy/trunk/perl/lib/Lucy/Util/ToolSet.pm
------------------------------------------------------------------------------
svn:eol-style = native