t/04-with-native-traits.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 {
   7     package MyClass;
   8
   9     use Moose;
  10     use MooseX::ClassAttribute;
  11
  12     class_has counter => (
  13         traits  => ['Counter'],
  14         is      => 'ro',
  15         handles => {
  16             inc_counter => 'inc',
  17         },
  18     );
  19 }
  20
  21 is( MyClass->counter(), 0 );
  22
  23 MyClass->inc_counter();
  24 is( MyClass->counter(), 1 );
  25
  26 done_testing();