Some fixes and the bare beginnings of a test suite.

[maypole.git] / lib / Apache / MVC.pm

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index a68f0ac29bc727a51428d296cfebfb0bafcaae0d..f567badb87ceaf00c650ca6f10b9b8d99b2d8074 100644 (file)
--- 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 }