Re^2: Problems and pitfalls with reblessing?

If you apply a role,doesnt that comes as an addition to the object's properties/methods ? Or do you mean that the role has properties with the same name as in the class so they overwrite them ?

Comment on Re^2: Problems and pitfalls with reblessing?

Replies are listed 'Best First'.
Re^3: Problems and pitfalls with reblessing? by choroba (Cardinal) on Nov 23, 2018 at 08:31 UTC
Changing the properties of the attributes works in the role: `#!/usr/bin/perl use warnings; use strict; { package MyRole; use Moo::Role; has +x => (is => 'ro'); } { package MyObj; use Moo; has x => (is => 'rw'); sub finalize { 'Moo::Role'->apply_roles_to_object($_[0], 'MyRole'); } } my $o = 'MyObj'->new; $o->x(12); $o->finalize; $o->x(13); # x is a read-only accessor` [download] Another way is to wrap the accessor: `{ package MyRole; use Moo::Role; requires 'x'; before x => sub { die "x is read only" if @_ > 1 }; }` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Problems and pitfalls with reblessing?
by choroba (Cardinal) on Nov 23, 2018 at 08:31 UTC

#!/usr/bin/perl
use warnings;
use strict;

{   package MyRole;
    use Moo::Role;
    has +x => (is => 'ro');
}

{   package MyObj;
    use Moo;
    has x => (is => 'rw');

    sub finalize {
        'Moo::Role'->apply_roles_to_object($_[0], 'MyRole');
    }
}

my $o = 'MyObj'->new;
$o->x(12);

$o->finalize;
$o->x(13);  # x is a read-only accessor
[download]

Another way is to wrap the accessor:

{   package MyRole;
    use Moo::Role;
    requires 'x';
    before x => sub { die "x is read only" if @_ > 1 };
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

[reply]
[d/l]
[select]