view release on metacpan or  search on metacpan

lib/fixedtime.pm  view on Meta::CPAN

Saves the status of the pragma (an epoch offset) in $^H{fixedtime}.

=end private

=cut

sub import   {
    shift;
    my %args = @_;
    # we do not care about autoviv
    $^H{fixedtime} = $args{epoch_offset} // CORE::time;
}

=head2 no fixedtime;

This will disable the pragma in the current lexical scope.

=begin private

=head2 fixedtime->unimport