view release on metacpan or  search on metacpan

benchmarks/shared.pl  view on Meta::CPAN

        " of %.2f seconds\n",
        $event->id,
        $event->pid,
        $event->runs,
        $event->errors,
        $event->interval
    );
}


sub update {
    # Because each event runs in its own process, $$ will be set to the
    # process ID of the calling event, even though they both call this
    # same function

    $shared_data{called_count}->{$$}++;
}

END {
    (tied %shared_data)->clean_up_all;
}