package Book::Cache;

%Book::Cache::DATA = get_data();
sub get_data {
    # some heavy code that generates/retrieves data
}
1;