Mercurial > pub > Impl
view Lib/IMPL/Object/Fields.pm @ 271:56364d0c4b4f
+IMPL::SQL::Schema::MySQL: added basic support for MySQL
author | cin |
---|---|
date | Mon, 28 Jan 2013 02:43:14 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
package IMPL::Object::Fields; use strict; use warnings; use parent qw(IMPL::Object::Abstract); sub new { my $class = shift; $class = ref $class || $class; my $this = fields::new($class); $this->callCTOR(@_); return $this; } sub surrogate { my $class = shift; $class = ref $class || $class; return fields::new($class); } 1;