Ticket #1209: Moorole.pm

File Moorole.pm, 316 bytes (added by bowtie, 3 years ago)

test file Moose role

Line 
1use MooseX::Declare;
2
3role Moorole {
4    requires '_build_overdraft';
5    use version; our $VERSION = version->new('1.0.1');
6
7    has 'balance' => (
8        isa     => 'Num',
9        is      => 'rw',
10        default => 0
11    );
12
13    has 'overdraft' => (
14        isa        => 'Bool',
15        is         => 'rw',
16        lazy_build => 1,
17        init_arg   => undef,
18    );
19}
20