perl5.10 compat: ellipsis (yada-ayada) ist da syntax error

diff --git a/SL/Controller/TopQuickSearch/Base.pm b/SL/Controller/TopQuickSearch/Base.pm
index 6c60618..1c9e5d3 100644 (file)
--- a/SL/Controller/TopQuickSearch/Base.pm
+++ b/SL/Controller/TopQuickSearch/Base.pm
@@ -3,19 +3,19 @@ package SL::Controller::TopQuickSearch::Base;
 use strict;
 use parent qw(Rose::Object);
 
-sub auth { ... }
+sub auth { die 'must be overwritten' }
 
-sub name { ... }
+sub name { die 'must be overwritten' }
 
-sub description_config { ... }
+sub description_config { die 'must be overwritten' }
 
-sub description_field { ... }
+sub description_field { die 'must be overwritten' }
 
-sub query_autocomplete { ... }
+sub query_autocomplete { die 'must be overwritten' }
 
-sub select_autocomplete { ... }
+sub select_autocomplete { die 'must be overwritten' }
 
-sub do_search { ... }
+sub do_search { die 'must be overwritten' }
 
 1;
 

diff --git a/SL/Controller/TopQuickSearch/CustomerVendor.pm b/SL/Controller/TopQuickSearch/CustomerVendor.pm
index 16ab863..bb6aa4e 100644 (file)
--- a/SL/Controller/TopQuickSearch/CustomerVendor.pm
+++ b/SL/Controller/TopQuickSearch/CustomerVendor.pm
@@ -14,11 +14,11 @@ use Rose::Object::MakeMethods::Generic (
 # nope. this is only for subclassing
 sub auth { 'NOT ALLOWED' }
 
-sub name { ... }
+sub name { die 'must be overwritten' }
 
-sub description_config { ... }
+sub description_config { die 'must be overwritten' }
 
-sub description_field { ... }
+sub description_field { die 'must be overwritten' }
 
 sub query_autocomplete {
   my ($self) = @_;

diff --git a/SL/Controller/TopQuickSearch/OERecord.pm b/SL/Controller/TopQuickSearch/OERecord.pm
index adac74a..f166edb 100644 (file)
--- a/SL/Controller/TopQuickSearch/OERecord.pm
+++ b/SL/Controller/TopQuickSearch/OERecord.pm
@@ -15,11 +15,11 @@ use Rose::Object::MakeMethods::Generic (
 # nope. this is only for subclassing
 sub auth { 'NOT ALLOWED' }
 
-sub name { ... }
+sub name { die 'must be overwritten' }
 
-sub description_config { ... }
+sub description_config { die 'must be overwritten' }
 
-sub description_field { ... }
+sub description_field { die 'must be overwritten' }
 
 sub query_autocomplete {
   my ($self) = @_;