X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;h=f567badb87ceaf00c650ca6f10b9b8d99b2d8074;hb=feefb416b3c1aafdea07aa47378d007ee760e9f9;hp=a68f0ac29bc727a51428d296cfebfb0bafcaae0d;hpb=1b3ec28e5f2b7f6f5f4c8140a98e114912271a53;p=maypole.git

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index a68f0ac..f567bad 100644
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -4,8 +4,9 @@ use attributes ();
 use Class::DBI::Loader;
 use strict;
 use warnings;
+our $VERSION = "1.0";
 
-__PACKAGE__->mk_classdata(qw( _config init_done view_object ));
+__PACKAGE__->mk_classdata($_) for qw( _config init_done view_object );
 __PACKAGE__->mk_accessors ( qw( config ar params objects model_class args ));
 __PACKAGE__->config({});
 __PACKAGE__->init_done(0);
@@ -92,11 +93,15 @@ sub is_applicable {
     return DECLINED() unless $cv;
 
     # Is it exported?
-    my $attribs = join " ", attributes::get($cv);
-    return DECLINED() unless $attribs =~ /\b(Exported|Class|Single|Multiple)\b/i;
+    $self->{method_attribs} = join " ", attributes::get($cv);
+    return DECLINED() 
+     unless $self->{method_attribs} =~ /\b(Exported|Class|Single|Multiple)\b/i;
     return OK();
 }
 
+sub find_objects {
+    # First, how many arguments are we?
+}
 
 sub authenticate { return 200 }