X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=960888f2835c2bdc3a80655bde3af87027ed32b1;hb=5bf6ba7247ade1abba2f2756e7f8ae0286ed9678;hp=89928fa814ff04c4bc725eb7ccadd82c853f376d;hpb=ca325e68ce3620b52a3c8c9ed437ed79c5d1a744;p=maypole.git 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;