Smarter NewDB module. More docs.

[blog.pm-common-perl-mods.git] / Rose-DB-Object-VCS / lib / Rose / DB / Object / Metadata / VCS.pm

package Rose::DB::Object::Metadata::VCS;

use strict;
use warnings;

use base 'Rose::DB::Object::Metadata';

sub versioned_columns {
    my $self = shift;

    $self->{ versioned_columns } = \@_ if @_;

    return
      wantarray
      ? @{ $self->{ versioned_columns } }
      : $self->{ versioned_columns };
}


1;