use
Test::More;
BEGIN {
Hades::Realm::Compiled::Params->run({
eval
=>
'Kosmos { penthos :d(2) :p :pr :c :t(Int) curae :r :t(Any) geras $nosoi :t(Int) :d(2) { if ($self->penthos == $nosoi) { return $self->curae; } } }'
,
lib
=>
't/lib'
});
}
use
Kosmos;
my
$okay
= Kosmos->new({
curae
=> 5
});
eval
{
$okay
->penthos };
like( $@,
qr/^cannot call private method penthos/
);
is(
$okay
->curae, 5);
is(
$okay
->geras, 5);
done_testing;