X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=960888f2835c2bdc3a80655bde3af87027ed32b1;hb=2317e7e16027c6fa312dbdff201d83084412a463;hp=61e07640cfb8976dfc519e63d60d1f3fb2272250;hpb=5cccc5a89004f9c514e9d611b5e2a02e9aa28ece;p=maypole.git diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm index 61e0764..960888f 100644 --- a/lib/Apache/MVC.pm +++ b/lib/Apache/MVC.pm @@ -6,9 +6,9 @@ use UNIVERSAL::require; use Apache::Constants ":common"; use strict; use warnings; -our $VERSION = "0.1"; -__PACKAGE__->mk_classdata($_) for qw( _config init_done view_object ); -__PACKAGE__->mk_accessors ( qw( config ar params query objects model_class +our $VERSION = "0.2"; +__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;