File: inheritance.t

package info (click to toggle)
libmoosex-setonce-perl 0.200002-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 132 kB
  • ctags: 6
  • sloc: perl: 86; makefile: 2
file content (36 lines) | stat: -rw-r--r-- 492 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
32
33
34
35
36
 
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Test::Moose;

use MooseX::SetOnce ();

{
    package Fruit;
    use Moose;

    has color => (
        is     => 'rw',
        traits => [ qw(SetOnce) ],
    );
}

{
    package Apple;
    use Moose;
    extends 'Fruit';
}

with_immutable {
    my $apple = Apple->new;

    is(
        exception { $apple->color('red') },
        undef,
        'SetOnce attributes can exist in a parent class',
    );

} 'Apple';

done_testing;