t/900_class_attribute.t

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