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 MooseX::ClassAttribute;
  10
  11     class_has counter => (
  12         traits  => ['Counter'],
  13         is      => 'ro',
  14         handles => {
  15             inc_counter => 'inc',
  16         },
  17     );
  18 }
  19
  20 is( MyClass->counter(), 0 );
  21
  22 MyClass->inc_counter();
  23 is( MyClass->counter(), 1 );
  24
  25 done_testing();