Mailing List Archive

Author: creamyg
Date: 2008-08-04 15:35:59 -0700 (Mon, 04 Aug 2008)
New Revision: 3714

Modified:
trunk/perl/lib/KinoSearch.pm
Log:
Minor simplifications: killing off some useless code and compacting some
useful code.


Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-08-04 22:34:21 UTC (rev 3713)
+++ trunk/perl/lib/KinoSearch.pm 2008-08-04 22:35:59 UTC (rev 3714)
@@ -86,13 +86,7 @@

{
package KinoSearch::Analysis::Analyzer;
- use KinoSearch::Util::StringHelper qw( utf8_flag_on );
-
- sub split {
- my $retval = _split(@_)->to_perl;
- utf8_flag_on($_) for @$retval;
- return $retval;
- }
+ sub split { _split(@_)->to_perl }
}

{
@@ -283,12 +277,6 @@
. "abstract method and must be defined in a subclass";
}

- sub todo_death {
- my ( undef, $filename, $line, $methodname ) = caller(1);
- die "ERROR: $methodname, called at $filename line $line, is not "
- . "implemented yet in KinoSearch, but is on the todo list";
- }
-
}

{
@@ -371,7 +359,6 @@

{
package KinoSearch::Index::IndexReader;
- use KinoSearch::Util::ToolSet qw( confess a_isa_b );

sub new {
confess(


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits