t/05-with-attribute-helpers-backcompat.t

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