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