t/900_class_attribute.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use MooseX::AttributeHelpers;
   6
   7 do {
   8     package TestClass;
   9     BEGIN {
  10         ::plan skip_all => "MooseX::ClassAttribute 0.05 required for this test"
  11             unless eval {
  12                 require MooseX::ClassAttribute;
  13                 MooseX::ClassAttribute->VERSION('0.05');
  14             };
  15         ::plan tests => 2;
  16         MooseX::ClassAttribute->import;
  17     }
  18
  19     class_has counter => (
  20         metaclass => 'Counter',
  21         provides  => {
  22             inc => 'inc_counter',
  23         },
  24     );
  25 };
  26
  27 is(TestClass->counter, 0);
  28 TestClass->inc_counter;
  29 is(TestClass->counter, 1);
  30