t/04-with-attribute-helpers.t

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