Select Code to Download

{
    package DB;
...
    }
}
1

E:\>perl -I./lib -d:MyDB -e "sub X { Y() } sub Y { sleep(1) } X,X,Y"

...
< ::X=1, 0, 0, 0, 0
> ::Y
< ::Y=1, 0, 0, 0, 0

>      Rating::CachedObject::new
>       Rating::ZoneTimePlan::init
...
<        Rating::CachedObject::new=0, 0, 0, 0, 0
<       Rating::ZoneTimePlan::init=0, 0.0150000000000006, 0, 0, 0
<      Rating::CachedObject::new=0, 0.0150000000000006, 0, 0, 0