Completely insane code.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@51 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 89928fa814ff04c4bc725eb7ccadd82c853f376d..960888f2835c2bdc3a80655bde3af87027ed32b1 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -7,8 +7,8 @@ use Apache::Constants ":common";
 use strict;
 use warnings;
 our $VERSION = "0.2";
-__PACKAGE__->mk_classdata($_) for qw( _config init_done view_object );
-__PACKAGE__->mk_accessors ( qw( config ar params query objects model_class
+__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
+__PACKAGE__->mk_accessors ( qw( ar params query objects model_class
 args action template ));
 __PACKAGE__->config({});
 __PACKAGE__->init_done(0);
@@ -22,13 +22,6 @@ sub import {
     }
 }
 
-# This is really dirty.
-sub config {
-    my $self = shift;
-    if (ref $self) { return $self->_config_accessor(@_) }
-    return $self->_config(@_);
-}
-
 sub set_database {
     my ($calling_class, $dsn) = @_;
     $calling_class = ref $calling_class if ref $calling_class;