provided_deref.t

use Test2::V0;
use PerlX::Maybe qw< :all >;

subtest 'provided_deref' => sub {

    my $object = mock {} => (
        add => [
            count    => sub { 1 },
            interval => sub { 1 },
            update   => sub {
                +{
                    provided_deref $_[0]->count, {
                        count    => $_[0]->count,
                        interval => $_[0]->interval,
                    },
                };
            },
        ],
    );

    like(
        $object->update,
        {
            count    => qr/^[0-9]+$/,
            interval => qr/^[0-9]+$/,
        },
        'should dereference based on a condition',
    );

};

done_testing;