lib/MooseX/ClassAttribute/Meta/Role/Attribute.pm

   1 package MooseX::ClassAttribute::Meta::Role::Attribute;
   2
   3 use strict;
   4 use warnings;
   5
   6 use List::MoreUtils qw( uniq );
   7
   8 use namespace::autoclean;
   9 use Moose;
  10
  11 extends 'Moose::Meta::Role::Attribute';
  12
  13 sub new {
  14     my ( $class, $name, %options ) = @_;
  15
  16     $options{traits} = [
  17         uniq( @{ $options{traits} || [] } ),
  18         'MooseX::ClassAttribute::Trait::Attribute'
  19     ];
  20
  21     return $class->SUPER::new( $name, %options );
  22 }
  23
  24 1;