From: Simon Cozens 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;