Ticket #1209: Mooclass.pm

File Mooclass.pm, 449 bytes (added by bowtie, 4 years ago)

test file Moose class

Line 
1use MooseX::Declare;
2
3class Mooclass {
4
5    has 'moo_att' => ( is => 'rw', );
6
7    has [qw/ label progress butWarn butTime start_stop /] =>
8        ( isa => 'Ref', is => 'rw' );
9
10    has qw(account) => ( is => 'rw', );
11
12    method pub_sub {
13        return;
14    }
15
16    method _pri_sub {
17        return;
18    }
19
20    before mm_before {
21        return;
22    }
23
24    after mm_after {
25        return;
26    }
27   
28    around mm_around {
29        return;
30    }
31   
32    override mm_override {
33        return;
34    }
35   
36    augment mm_augment {
37        return;
38    }
39}
40