cvsuser 01/11/29 15:42:09
Modified: P5EEx/Beige/P5EEx/Beige/Registry ClassRegistery.pm
Log:
I'll delete this soon. Like I said earlier - it was an idea, and I've changed my
mind.
Revision Changes Path
1.3 +3 -3 p5ee/P5EEx/Beige/P5EEx/Beige/Registry/ClassRegistery.pm
Index: ClassRegistery.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Beige/P5EEx/Beige/Registry/ClassRegistery.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- ClassRegistery.pm 2001/11/24 14:21:57 1.2
+++ ClassRegistery.pm 2001/11/29 23:42:09 1.3
@@ -218,9 +218,9 @@
Purpose => 'Purpose::Of::Package',
Method => 'MethodName',
Arguments => {
- Argument1 => 'ref $_ eq "HASH"',
- Argument2 => "! ref $_",
- Argument3 => "( ref $_ eq 'Hash' || ref $_ eq 'Array' )",
+ Argument1 => { Validator => 'ref $_ eq "HASH"'},
+ Argument2 => { Validator => "! ref $_", Default => undef },
+ Argument3 => {}
},
Groups => ['Sue'],
);
