BEGIN {
    package Cava::Pack;
    sub Resource { $Cava::Pack::dir.'/'.$_[0]; }
    sub SetResourcePath { $Cava::Pack::dir = $_[0]; }
    sub GetInfoProductVersion { "0.9.9.0"; }
}