BEGIN {
Hades->run({
realm
=>
'Moose'
,
eval
=>
q|KatoTest {
curae :r :default(5)
penthos :t(Str)
phobos :t(ArrayRef[HashRef, 1, 100])
aporia :t(HashRef[Int])
thanatos :t(Map[Str, Int])
gaudia :t(Tuple[Str, Int])
nosoi :default(3) :t(Int) :clearer
hypnos :pr :r :default(this is just a test) :type(Str) :c
geras :t(Str) :r
limos
$test :t(Str)
:test(
['ok', '$obj->penthos(2) && $obj->nosoi(2) && $obj->curae(5)'],
['is', '$obj->limos("yay")', 5 ],
['ok', '$obj->penthos(5)' ],
['is', '$obj->limos("yay")', q{''}]
)
{ if ($_[0]->penthos == $_[0]->nosoi) { return $_[0]->curae; } }
}|
,
lib
=>
't/lib'
,
tlib
=>
't/lib'
,
});
}
my
$lame
=
't/lib/KatoTest.t'
;
open
my
$fh
,
'<'
,
$lame
;
my
$content
=
do
{
local
$/; <
$fh
> };
close
$fh
;
eval
$content
;
print
$@;