The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;