package Storm::Meta::Attribute::Trait::AutoIncrement;
{
$Storm::Meta::Attribute::Trait::AutoIncrement::VERSION = '0.19';
}
use Moose::Role;
use MooseX::Types::Moose qw( Int );
before '_process_options' => sub {
my $class = shift;
my $name = shift;
my $options = shift;
$options->{isa} ||= Int;
$options->{column} ||= { };
$options->{column}{auto_increment} = 1;
};
package Moose::Meta::Attribute::Custom::Trait::AutoIncrement;
{
$Moose::Meta::Attribute::Custom::Trait::AutoIncrement::VERSION = '0.19';
}
sub register_implementation { 'Storm::Meta::Attribute::Trait::AutoIncrement' };
1;