From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 6 Feb 2004 16:54:15 +0000 (+0000)
Subject: Completely insane code.
X-Git-Tag: 2.10~311
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=5bf6ba7247ade1abba2f2756e7f8ae0286ed9678;p=maypole.git

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 89928fa..960888f 100644
--- 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;