t/04-with-attribute-helpers.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 2;
   5
   6 {
   7     package MyClass;
   8
   9     use MooseX::ClassAttribute;
  10     use MooseX::AttributeHelpers;
  11
  12     class_has counter =>
  13         ( metaclass => 'Counter',
  14           is        => 'ro',
  15           provides  => { inc => 'inc_counter',
  16                        },
  17         );
  18 }
  19
  20 is( MyClass->counter(), 0 );
  21
  22 MyClass->inc_counter();
  23 is( MyClass->counter(), 1 );