Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-MooseX-Role-Parameterized/t

Name	Size	Perms	Modified	Actions
[ .. / .. ]
00-report-prereqs.dd	10.56 KB	-rw-r--r--	2019-07-16 01:33:22	Edit Del
00-report-prereqs.t	5.9 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
001-parameters.t	1.93 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
002-role-block.t	2.28 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
003-apply.t	4.02 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
004-with.t	1.11 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
005-with-parameterized.t	1.73 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
006-requires.t	1.88 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
007-excludes.t	1.14 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
008-method-modifers.t	972 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
009-override-super.t	723 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
010-blessed-confess.t	234 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
011-reference-parameters.t	1.39 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
012-rename-role.t	375 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
013-does.t	546 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
014-compose-parameterizable.t	560 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
015-compose-keywords.t	1.1 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
016-trait.t	950 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
017-current_metaclass.t	1.12 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
018-parameter-roles.t	1.01 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
020-metaclass-reinitialize.t	1.81 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
021-parameter-trait.t	811 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
022-export-p-trait.t	1.09 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
023-metarole-import-params.t	1.46 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
024-named-anonymous.t	936 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
100-erroneous-keywords.t	960 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
101-alias-excludes.t	1016 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
102-nested.t	1.27 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
150-composite-role-application.t	2.33 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del
200-cooperative.t	937 B	-rw-r--r--	2019-10-28 22:31:21	Edit Del
lib	-	drwxr-xr-x	2022-02-23 11:28:44	Del
zzz-check-breaks.t	1.23 KB	-rw-r--r--	2019-10-28 22:31:21	Edit Del

Editing: 004-with.t (1.11 KB)

use strict;
use warnings;
use Test::More 0.88;

do {
    package MyItem::Role::Wearable;
    use Moose::Role;

    has is_worn => (
        is => 'rw',
        isa => 'Bool',
        default => 0,
    );

    sub equip { shift->is_worn(1) }
    sub remove { shift->is_worn(0) }
};

do {
    package MyItem::Role::Equippable;
    use MooseX::Role::Parameterized;

    parameter slot => (
        isa      => 'Str',
        required => 1,
    );

    role {
        my $p = shift;

        with 'MyItem::Role::Wearable';

        method slot => sub { $p->slot };
    };
};

do {
    package MyItem::Helmet;
    use Moose;
    with 'MyItem::Role::Equippable' => {
        slot => 'head',
    };
};

do {
    package MyItem::Belt;
    use Moose;
    with 'MyItem::Role::Equippable' => {
        slot => 'waist',
    };
};

can_ok('MyItem::Helmet', qw/is_worn equip remove slot/);
can_ok('MyItem::Belt', qw/is_worn equip remove slot/);

my $visored = MyItem::Helmet->new(is_worn => 1);
ok($visored->is_worn);
is($visored->slot, 'head');

my $utility = MyItem::Belt->new;
ok(!$utility->is_worn);
is($utility->slot, 'waist');

done_testing;