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 6c6061848abe4c964dd2e52984e5683c3fc62d23..1c9e5d349b224bb8b568ed3fb2d1120300dc1525 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 16ab8632fec8df007ab7c68980582f1e8754ce0f..bb6aa4e3827a9de6ac646de7d81170c1815425e5 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 adac74adf97955348e53c25c471be71fe1f23a83..f166edbd7053e495368d2f759236a11e21deb772 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) = @_;