Added our own accessor system (ripped from C::A) and a bunch more compat code

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / GetSet.pm

diff --git a/lib/DBIx/Class/CDBICompat/GetSet.pm b/lib/DBIx/Class/CDBICompat/GetSet.pm
new file mode 100644 (file)
index 0000000..a748c55
--- /dev/null
+++ b/lib/DBIx/Class/CDBICompat/GetSet.pm
@@ -0,0 +1,18 @@
+package DBIx::Class::CDBICompat::GetSet;
+
+#use base qw/Class::Accessor/;
+
+sub get {
+  my ($self, @cols) = @_;
+  if (@cols > 1) {
+    return map { $self->get_column($_) } @cols;
+  } else {
+    return $self->get_column($_[1]);
+  }
+}
+
+sub set {
+  return shift->set_column(@_);
+}
+
+1;