Changeset 170 for branches/archetype-0.4-untaint

Timestamp:

05/04/06 00:16:08 (4 years ago)

Author:

sky

Message:

r173@crucially-3 (orig r1206): ykerherve | 2006-04-07 02:08:43 -0700
Simple modification to allow pluggable Untaint. likely to be changed

Files:

• branches/archetype-0.4-untaint/lib/Data/ObjectDriver/BaseObject.pm (modified) (1 diff)

branches/archetype-0.4-untaint/lib/Data/ObjectDriver/BaseObject.pm

@@ -14 +14 @@
     my($props) = @_;
     *{"${class}::__properties"} = sub { $props };
+    for (@{ $props->{plugins} || []}) {
+        eval "use $_;";
+        $_->init($class);
+    }
     $props;
 }