Changeset 29750

Timestamp:

02/09/09 14:20:55 (4 years ago)

Author:

yappo

Message:

added to add_method of schema

Location:

lang/perl/Data-Model/trunk

Files:

• lib/Data/Model/Schema.pm (modified) (2 diffs)
• t/010_core/add_method.t (added)

lang/perl/Data-Model/trunk/lib/Data/Model/Schema.pm

@@ -20 +20 @@
     no strict 'refs';
     for my $name (qw/ base_driver driver install_model schema column columns key index unique schema_options column_sugar
-        utf8_column utf8_columns alias_column /) {
+        utf8_column utf8_columns alias_column add_method /) {
         *{"$caller\::$name"} = \&$name;
     }
@@ -251 +251 @@
 }
 
+sub add_method {
+    my($name, $schema) = _get_model_schema;
+    my($method, $code) = @_;
+    no strict 'refs';
+    *{$schema->class."::$method"} = $code;
+}
+
 
 sub column_sugar (@) {