Inherit private attributes in Object::Pad

inherit-private-attribute.t

use Test2::V0;
use Object::Pad 0.808;

class Power {
    field $_power :inheritable = 0;
    method of ($number) { $number ** $_power };
};

class Square {
    inherit Power '$_power';
    ADJUST { $_power = 2 };
};

class Cube {
    inherit Power '$_power';
    ADJUST { $_power = 3 };
};

subtest 'A "Square" object' => sub {
    is Square->new, object {
        call [ of => 1 ] => 1;
        call [ of => 3 ] => 9;
    }, 'should return the square of $number';
};

subtest 'A "Cube" object' => sub {
    is Cube->new, object {
        call [ of => 1 ] => 1;
        call [ of => 3 ] => 27;
    }, 'should return the cube of $number';
};

done_testing;