File: 05-with-attribute-helpers-backcompat.t

package info (click to toggle)
libmoosex-classattribute-perl 0.29-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 372 kB
  • ctags: 47
  • sloc: perl: 1,148; makefile: 2
file content (31 lines) | stat: -rw-r--r-- 484 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
use strict;
use warnings;

use Test::More;

use Test::Requires 0.05 {
    'MooseX::AttributeHelpers' => 0.23,
};

{
    package MyClass;

    use Moose;
    use MooseX::ClassAttribute;
    use MooseX::AttributeHelpers;

    class_has counter => (
        metaclass => 'Counter',
        is        => 'ro',
        provides  => {
            inc => 'inc_counter',
        },
    );
}

is( MyClass->counter(), 0 );

MyClass->inc_counter();
is( MyClass->counter(), 1 );

done_testing();