Hello community,
here is the log from the commit of package perl-Test-MockTime for
openSUSE:Factory checked in at 2015-09-08 17:43:01
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-MockTime (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-MockTime.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-MockTime"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-MockTime/perl-Test-MockTime.changes
2015-04-23 08:03:41.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Test-MockTime.new/perl-Test-MockTime.changes
2015-09-08 17:47:28.000000000 +0200
@@ -1,0 +2,14 @@
+Fri Sep 4 09:51:03 UTC 2015 - [email protected]
+
+- updated to 0.15
+ see /usr/share/doc/packages/perl-Test-MockTime/Changes
+
+ 0.15 - 03 Sep 2015
+
+ * Corrected README. Merged POD into pm file
+
+ 0.14 - 03 Sep 2015
+
+ * fixing POD code examples as per RT #104088.
+
+-------------------------------------------------------------------
Old:
----
Test-MockTime-0.13.tar.gz
New:
----
Test-MockTime-0.15.tar.gz
cpanspec.yml
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-MockTime.spec ++++++
--- /var/tmp/diff_new_pack.XYtFQi/_old 2015-09-08 17:47:29.000000000 +0200
+++ /var/tmp/diff_new_pack.XYtFQi/_new 2015-09-08 17:47:29.000000000 +0200
@@ -17,14 +17,15 @@
Name: perl-Test-MockTime
-Version: 0.13
+Version: 0.15
Release: 0
%define cpan_name Test-MockTime
Summary: Replaces actual time with simulated time
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Test-MockTime/
-Source:
http://www.cpan.org/authors/id/D/DD/DDICK/%{cpan_name}-%{version}.tar.gz
+Source0:
http://www.cpan.org/authors/id/D/DD/DDICK/%{cpan_name}-%{version}.tar.gz
+Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -58,6 +59,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes
+%doc Changes README
%changelog
++++++ Test-MockTime-0.13.tar.gz -> Test-MockTime-0.15.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/Changes
new/Test-MockTime-0.15/Changes
--- old/Test-MockTime-0.13/Changes 2014-08-07 10:57:44.000000000 +0200
+++ new/Test-MockTime-0.15/Changes 2015-09-03 14:14:02.000000000 +0200
@@ -1,6 +1,14 @@
CHANGES
-------
+ 0.15 - 03 Sep 2015
+
+ * Corrected README. Merged POD into pm file
+
+ 0.14 - 03 Sep 2015
+
+ * fixing POD code examples as per RT #104088.
+
0.13 - 07 Aug 2014
* explicit license in META as per RT #97806
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/MANIFEST
new/Test-MockTime-0.15/MANIFEST
--- old/Test-MockTime-0.13/MANIFEST 2014-08-07 10:57:51.000000000 +0200
+++ new/Test-MockTime-0.15/MANIFEST 2015-09-03 14:22:32.000000000 +0200
@@ -1,4 +1,5 @@
MANIFEST
+README
Makefile.PL
Changes
t/export.t
@@ -7,6 +8,5 @@
t/string-time.t
t/prototypes.t
lib/Test/MockTime.pm
-lib/Test/MockTime.pod
-META.yml Module meta-data (added by MakeMaker)
+META.yml Module YAML meta-data (added by
MakeMaker)
META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/META.json
new/Test-MockTime-0.15/META.json
--- old/Test-MockTime-0.13/META.json 2014-08-07 10:57:51.000000000 +0200
+++ new/Test-MockTime-0.15/META.json 2015-09-03 14:22:32.000000000 +0200
@@ -4,7 +4,7 @@
"David Dick <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter
version 2.132140",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter
version 2.150001",
"license" : [
"perl_5"
],
@@ -39,5 +39,5 @@
}
},
"release_status" : "stable",
- "version" : "0.13"
+ "version" : "0.15"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/META.yml
new/Test-MockTime-0.15/META.yml
--- old/Test-MockTime-0.13/META.yml 2014-08-07 10:57:51.000000000 +0200
+++ new/Test-MockTime-0.15/META.yml 2015-09-03 14:22:32.000000000 +0200
@@ -3,22 +3,22 @@
author:
- 'David Dick <[email protected]>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version
2.132140'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version
2.150001'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Test-MockTime
no_index:
directory:
- t
- inc
requires:
- Test::More: 0
- Time::Local: 0
- Time::Piece: 1.08
-version: 0.13
+ Test::More: '0'
+ Time::Local: '0'
+ Time::Piece: '1.08'
+version: '0.15'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/Makefile.PL
new/Test-MockTime-0.15/Makefile.PL
--- old/Test-MockTime-0.13/Makefile.PL 2014-08-07 10:56:02.000000000 +0200
+++ new/Test-MockTime-0.15/Makefile.PL 2015-09-03 14:13:03.000000000 +0200
@@ -1,11 +1,14 @@
+#!perl
+use strict;
+use warnings;
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'Test::MockTime',
'AUTHOR' => q{David Dick <[email protected]>},
'VERSION_FROM' => 'lib/Test/MockTime.pm',
- 'ABSTRACT_FROM' => 'lib/Test/MockTime.pod',
+ 'ABSTRACT_FROM' => 'lib/Test/MockTime.pm',
($ExtUtils::MakeMaker::VERSION >= 6.3002
? ('LICENSE'=> 'perl')
: ()),
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/README
new/Test-MockTime-0.15/README
--- old/Test-MockTime-0.13/README 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-MockTime-0.15/README 2015-09-03 14:22:22.000000000 +0200
@@ -0,0 +1,158 @@
+NAME
+
+ Test::MockTime - Replaces actual time with simulated time
+
+VERSION
+
+ Version 0.15
+
+SYNOPSIS
+
+ use Test::MockTime qw( :all );
+ set_relative_time(-600);
+
+ # do some tests depending on time increasing from 600 seconds ago
+
+ set_absolute_time(0);
+
+ # do some more tests depending on time starting from the epoch
+ # epoch may vary according to platform. see perlport.
+
+ set_fixed_time(CORE::time());
+
+ # do some more tests depending on time staying at the current actual time
+
+ set_absolute_time('1970-01-01T00:00:00Z');
+
+ # do some tests depending on time starting at Unix epoch time
+
+ set_fixed_time('01/01/1970 00:00:00', '%m/%d/%Y %H:%M:%S');
+
+ # do some tests depending on time staying at the Unix epoch time
+
+ restore_time();
+
+ # resume normal service
+
+DESCRIPTION
+
+ This module was created to enable test suites to test code at specific
+ points in time. Specifically it overrides localtime, gmtime and time at
+ compile time and then relies on the user supplying a mock time via
+ set_relative_time, set_absolute_time or set_fixed_time to alter future
+ calls to gmtime,time or localtime.
+
+SUBROUTINES/METHODS
+
+ set_absolute_time
+
+ If given a single, numeric argument, the argument is an absolute time
+ (for example, if 0 is supplied, the absolute time will be the epoch),
+ and calculates the offset to allow subsequent calls to time, gmtime
+ and localtime to reflect this.
+
+ for example, in the following code
+
+ Test::MockTime::set_absolute_time(0);
+ my ($start) = time;
+ sleep 2;
+ my ($end) = time;
+
+ The $end variable should contain 2 seconds past the epoch;
+
+ If given two arguments, the first argument is taken to be an absolute
+ time in some string format (for example, "01/01/1970 00:00:00"). The
+ second argument is taken to be a strptime format string (for example,
+ "%m/%d/%Y %H:%M:%S"). If a single argument is given, but that
+ argument is not numeric, a strptime format string of
+ "%Y-%m-%dT%H:%M:%SZ" is assumed.
+
+ for example, in the following code
+
+ Test::MockTime::set_absolute_time('1970-01-01T00:00:00Z');
+ my ($start) = time;
+ sleep 2;
+ my ($end) = time;
+
+ The $end variable should contain 2 seconds past the Unix epoch;
+
+ set_relative_time($relative)
+
+ takes as an argument an relative value from current time (for
+ example, if -10 is supplied, current time be converted to actual
+ machine time - 10 seconds) and calculates the offset to allow
+ subsequent calls to time,gmtime and localtime to reflect this.
+
+ for example, in the following code
+
+ my ($start) = time;
+ Test::MockTime::set_relative_time(-600);
+ sleep 600;
+ my ($end) = time;
+
+ The $end variable should contain either the same or very similar
+ values to the $start variable.
+
+ set_fixed_time
+
+ If given a single, numeric argument, the argument is an absolute time
+ (for example, if 0 is supplied, the absolute time will be the epoch).
+ All subsequent calls to gmtime, localtime and time will return this
+ value.
+
+ for example, in the following code
+
+ Test::MockTime::set_fixed_time(time)
+ my ($start) = time;
+ sleep 3;
+ my ($end) = time;
+
+ the $end variable and the $start variable will contain the same
+ results
+
+ If given two arguments, the first argument is taken to be an absolute
+ time in some string format (for example, "01/01/1970 00:00:00"). The
+ second argument is taken to be a strptime format string (for example,
+ "%m/%d/%Y %H:%M:%S"). If a single argument is given, but that
+ argument is not numeric, a strptime format string of
+ "%Y-%m-%dT%H:%M:%SZ" is assumed.
+
+ restore()
+
+ restore the default time handling values. restore_time is an alias.
+ When exported with the 'all' tag, this subroutine is exported as
+ restore_time.
+
+CONFIGURATION AND ENVIRONMENT
+
+ Test::MockTime requires no configuration files or environment
+ variables.
+
+DEPENDENCIES
+
+ Test::MockTime depends on the following non-core Perl modules.
+
+ * Time::Piece 1.08 or greater
+
+INCOMPATIBILITIES
+
+ None reported
+
+BUGS AND LIMITATIONS
+
+ Probably.
+
+AUTHOR
+
+ David Dick <[email protected]>
+
+LICENSE AND COPYRIGHT
+
+ This program is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
+
+ACKNOWLEDGEMENTS
+
+ Thanks to a use.perl.org journal entry
+ <http://use.perl.org/~geoff/journal/20660> by Geoffrey Young.
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/lib/Test/MockTime.pm
new/Test-MockTime-0.15/lib/Test/MockTime.pm
--- old/Test-MockTime-0.13/lib/Test/MockTime.pm 2014-08-07 10:40:49.000000000
+0200
+++ new/Test-MockTime-0.15/lib/Test/MockTime.pm 2015-09-03 14:22:20.000000000
+0200
@@ -6,88 +6,261 @@
use Exporter();
*import = \&Exporter::import;
our @EXPORT_OK = qw(
- set_relative_time
- set_absolute_time
- set_fixed_time
- restore_time
+ set_relative_time
+ set_absolute_time
+ set_fixed_time
+ restore_time
);
-our %EXPORT_TAGS = (
- 'all' => \@EXPORT_OK,
-);
-our ($VERSION) = '0.13';
-our ($offset) = 0;
-our ($fixed) = undef;
+our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK, );
+our $VERSION = '0.15';
+our $offset = 0;
+our $fixed = undef;
BEGIN {
- *CORE::GLOBAL::time = \&Test::MockTime::time;
- *CORE::GLOBAL::localtime = \&Test::MockTime::localtime;
- *CORE::GLOBAL::gmtime = \&Test::MockTime::gmtime;
+ *CORE::GLOBAL::time = \&Test::MockTime::time;
+ *CORE::GLOBAL::localtime = \&Test::MockTime::localtime;
+ *CORE::GLOBAL::gmtime = \&Test::MockTime::gmtime;
}
sub set_relative_time {
- my ($relative) = @_;
- if (($relative eq __PACKAGE__) || (UNIVERSAL::isa($relative,
__PACKAGE__))) {
- Carp::carp("Test::MockTime::set_relative_time called
incorrectly\n");
- }
- $offset = $_[-1]; # last argument. might have been called in a OO
syntax?
+ my ($relative) = @_;
+ if ( ( $relative eq __PACKAGE__ )
+ || ( UNIVERSAL::isa( $relative, __PACKAGE__ ) ) )
+ {
+ Carp::carp("Test::MockTime::set_relative_time called incorrectly\n");
+ }
+ $offset = $_[-1]; # last argument. might have been called in a OO
syntax?
+ return $offset;
}
sub _time {
- my ($time, $spec) = @_;
- unless ($time =~ /\A -? \d+ \z/xms) {
- $spec ||= '%Y-%m-%dT%H:%M:%SZ';
- }
- if ($spec) {
- require Time::Piece;
- $time = Time::Piece->strptime($time, $spec)->epoch();
- }
- return $time;
+ my ( $time, $spec ) = @_;
+ if ( $time !~ /\A -? \d+ \z/xms ) {
+ $spec ||= '%Y-%m-%dT%H:%M:%SZ';
+ }
+ if ($spec) {
+ require Time::Piece;
+ $time = Time::Piece->strptime( $time, $spec )->epoch();
+ }
+ return $time;
}
sub set_absolute_time {
- my ($time, $spec) = @_;
- if (($time eq __PACKAGE__) || (UNIVERSAL::isa($time, __PACKAGE__))) {
- Carp::carp("Test::MockTime::set_absolute_time called
incorrectly\n");
- }
- $time = _time($time, $spec);
- $offset = $time - CORE::time;
+ my ( $time, $spec ) = @_;
+ if ( ( $time eq __PACKAGE__ ) || ( UNIVERSAL::isa( $time, __PACKAGE__ ) ) )
+ {
+ Carp::carp("Test::MockTime::set_absolute_time called incorrectly\n");
+ }
+ $time = _time( $time, $spec );
+ $offset = $time - CORE::time;
+ return $offset;
}
sub set_fixed_time {
- my ($time, $spec) = @_;
- if (($time eq __PACKAGE__) || (UNIVERSAL::isa($time, __PACKAGE__))) {
- Carp::carp("Test::MockTime::set_fixed_time called
incorrectly\n");
- }
- $time = _time($time, $spec);
- $fixed = $time;
+ my ( $time, $spec ) = @_;
+ if ( ( $time eq __PACKAGE__ ) || ( UNIVERSAL::isa( $time, __PACKAGE__ ) ) )
+ {
+ Carp::carp("Test::MockTime::set_fixed_time called incorrectly\n");
+ }
+ $time = _time( $time, $spec );
+ $fixed = $time;
+ return $fixed;
}
-sub time() {
- if (defined $fixed) {
- return $fixed;
- } else {
- return (CORE::time + $Test::MockTime::offset);
- }
+sub time() {
+ if ( defined $fixed ) {
+ return $fixed;
+ }
+ else {
+ return ( CORE::time + $offset );
+ }
}
sub localtime (;$) {
- my ($time) = @_;
- unless (defined $time) {
- $time = Test::MockTime::time();
- }
- return CORE::localtime($time);
+ my ($time) = @_;
+ if ( !defined $time ) {
+ $time = Test::MockTime::time();
+ }
+ return CORE::localtime($time);
}
sub gmtime (;$) {
- my ($time) = @_;
- unless (defined $time) {
- $time = Test::MockTime::time();
- }
- return CORE::gmtime($time);;
+ my ($time) = @_;
+ if ( !defined $time ) {
+ $time = Test::MockTime::time();
+ }
+ return CORE::gmtime($time);
}
sub restore {
- $offset = 0;
- $fixed = undef;
+ $offset = 0;
+ $fixed = undef;
+ return;
}
*restore_time = \&restore;
+
+1;
+__END__
+
+=head1 NAME
+
+Test::MockTime - Replaces actual time with simulated time
+
+=head1 VERSION
+
+Version 0.15
+
+=head1 SYNOPSIS
+
+ use Test::MockTime qw( :all );
+ set_relative_time(-600);
+
+ # do some tests depending on time increasing from 600 seconds ago
+
+ set_absolute_time(0);
+
+ # do some more tests depending on time starting from the epoch
+ # epoch may vary according to platform. see perlport.
+
+ set_fixed_time(CORE::time());
+
+ # do some more tests depending on time staying at the current actual time
+
+ set_absolute_time('1970-01-01T00:00:00Z');
+
+ # do some tests depending on time starting at Unix epoch time
+
+ set_fixed_time('01/01/1970 00:00:00', '%m/%d/%Y %H:%M:%S');
+
+ # do some tests depending on time staying at the Unix epoch time
+
+ restore_time();
+
+ # resume normal service
+
+=head1 DESCRIPTION
+
+This module was created to enable test suites to test code at specific
+points in time. Specifically it overrides localtime, gmtime and time at
+compile time and then relies on the user supplying a mock time via
+set_relative_time, set_absolute_time or set_fixed_time to alter future
+calls to gmtime,time or localtime.
+
+=head1 SUBROUTINES/METHODS
+
+=over
+
+=item set_absolute_time
+
+If given a single, numeric argument, the argument is an absolute time (for
+example, if 0 is supplied, the absolute time will be the epoch), and
+calculates the offset to allow subsequent calls to time, gmtime and localtime
+to reflect this.
+
+for example, in the following code
+
+ Test::MockTime::set_absolute_time(0);
+ my ($start) = time;
+ sleep 2;
+ my ($end) = time;
+
+The $end variable should contain 2 seconds past the epoch;
+
+If given two arguments, the first argument is taken to be an absolute time in
+some string format (for example, "01/01/1970 00:00:00"). The second argument
+is taken to be a C<strptime> format string (for example, "%m/%d/%Y %H:%M:%S").
+If a single argument is given, but that argument is not numeric, a
+C<strptime> format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
+
+for example, in the following code
+
+ Test::MockTime::set_absolute_time('1970-01-01T00:00:00Z');
+ my ($start) = time;
+ sleep 2;
+ my ($end) = time;
+
+The $end variable should contain 2 seconds past the Unix epoch;
+
+=item set_relative_time($relative)
+
+takes as an argument an relative value from current time (for example, if -10
+is supplied, current time be converted to actual machine time - 10 seconds)
+and calculates the offset to allow subsequent calls to time,gmtime and
localtime
+to reflect this.
+
+for example, in the following code
+
+ my ($start) = time;
+ Test::MockTime::set_relative_time(-600);
+ sleep 600;
+ my ($end) = time;
+
+The $end variable should contain either the same or very similar values to the
+$start variable.
+
+=item set_fixed_time
+
+If given a single, numeric argument, the argument is an absolute time (for
+example, if 0 is supplied, the absolute time will be the epoch). All
+subsequent calls to gmtime, localtime and time will return this value.
+
+for example, in the following code
+
+ Test::MockTime::set_fixed_time(time)
+ my ($start) = time;
+ sleep 3;
+ my ($end) = time;
+
+the $end variable and the $start variable will contain the same results
+
+If given two arguments, the first argument is taken to be an absolute time in
+some string format (for example, "01/01/1970 00:00:00"). The second argument
+is taken to be a C<strptime> format string (for example, "%m/%d/%Y %H:%M:%S").
+If a single argument is given, but that argument is not numeric, a
+C<strptime> format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
+
+=item restore()
+
+restore the default time handling values. C<restore_time> is an alias. When
+exported with the 'all' tag, this subroutine is exported as C<restore_time>.
+
+=back
+
+=head1 CONFIGURATION AND ENVIRONMENT
+
+Test::MockTime requires no configuration files or environment variables.
+
+=head1 DEPENDENCIES
+
+Test::MockTime depends on the following non-core Perl modules.
+
+=over
+
+=item *
+L<Time::Piece 1.08 or greater|Time::Piece>
+
+=back
+
+=head1 INCOMPATIBILITIES
+
+None reported
+
+=head1 BUGS AND LIMITATIONS
+
+Probably.
+
+=head1 AUTHOR
+
+David Dick <[email protected]>
+
+=head1 LICENSE AND COPYRIGHT
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to a use.perl.org journal entry
<http://use.perl.org/~geoff/journal/20660> by
+Geoffrey Young.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-MockTime-0.13/lib/Test/MockTime.pod
new/Test-MockTime-0.15/lib/Test/MockTime.pod
--- old/Test-MockTime-0.13/lib/Test/MockTime.pod 2008-06-29
23:22:34.000000000 +0200
+++ new/Test-MockTime-0.15/lib/Test/MockTime.pod 1970-01-01
01:00:00.000000000 +0100
@@ -1,144 +0,0 @@
-
-=head1 NAME
-
-Test::MockTime - Replaces actual time with simulated time
-
-=head1 SYNOPSIS
-
- use Test::MockTime qw( :all );
- set_relative_time(-600);
-
- # do some tests depending on time increasing from 600 seconds ago
-
- set_absolute_time(0);
-
- # do some more tests depending on time starting from the epoch
- # epoch may vary according to platform. see perlport.
-
- set_fixed_time(CORE::time());
-
- # do some more tests depending on time staying at the current actual time
-
- set_absolute_time('1970-01-01T00:00:00Z');
-
- # do some tests depending on time starting at Unix epoch time
-
- set_fixed_time('01/01/1970 00:00:00', '%m/%d/%Y %H:%M:%S');
-
- # do some tests depending on time staying at the Unix epoch time
-
- restore_time();
-
- # resume normal service
-
-=head1 DESCRIPTION
-
-This module was created to enable test suites to test code at specific
-points in time. Specifically it overrides localtime, gmtime and time at
-compile time and then relies on the user supplying a mock time via
-set_relative_time, set_absolute_time or set_fixed_time to alter future
-calls to gmtime,time or localtime.
-
-=head1 Functions
-
-=over
-
-=item set_absolute_time
-
-If given a single, numeric argument, the argument is an absolute time (for
-example, if 0 is supplied, the absolute time will be the epoch), and
-calculates the offset to allow subsequent calls to time, gmtime and localtime
-to reflect this.
-
-for example, in the following code
-
- Time::Mock::set_absolute_time(0);
- my ($start) = time;
- sleep 2;
- my ($end) = time;
-
-The $end variable should contain 2 seconds past the epoch;
-
-If given two arguments, the first argument is taken to be an absolute time in
-some string format (for example, "01/01/1970 00:00:00"). The second argument
-is taken to be a C<strptime> format string (for example, "%m/%d/%Y %H:%M:%S").
-If a single argument is given, but that argument is not numeric, a
-C<strptime> format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
-
-for example, in the following code
-
- Time::Mock::set_absolute_time('1970-01-01T00:00:00Z');
- my ($start) = time;
- sleep 2;
- my ($end) = time;
-
-The $end variable should contain 2 seconds past the Unix epoch;
-
-=item set_relative_time($relative)
-
-takes as an argument an relative value from current time (for example, if -10
-is supplied, current time be converted to actual machine time - 10 seconds)
-and calculates the offset to allow subsequent calls to time,gmtime and
localtime
-to reflect this.
-
-for example, in the following code
-
- my ($start) = time;
- Time::Mock::set_relative_time(-600);
- sleep 600;
- my ($end) = time;
-
-The $end variable should contain either the same or very similar values to the
-$start variable.
-
-=item set_fixed_time
-
-If given a single, numeric argument, the argument is an absolute time (for
-example, if 0 is supplied, the absolute time will be the epoch). All
-subsequent calls to gmtime, localtime and time will return this value.
-
-for example, in the following code
-
- Time::Mock::set_fixed_time(time)
- my ($start) = time;
- sleep 3;
- my ($end) = time;
-
-the $end variable and the $start variable will contain the same results
-
-If given two arguments, the first argument is taken to be an absolute time in
-some string format (for example, "01/01/1970 00:00:00"). The second argument
-is taken to be a C<strptime> format string (for example, "%m/%d/%Y %H:%M:%S").
-If a single argument is given, but that argument is not numeric, a
-C<strptime> format string of "%Y-%m-%dT%H:%M:%SZ" is assumed.
-
-=item restore()
-
-restore the default time handling values. C<restore_time> is an alias. When
-exported with the 'all' tag, this subroutine is exported as C<restore_time>.
-
-=back
-
-=head1 AUTHOR
-
-David Dick <[email protected]>
-
-=head1 PREREQUISITES
-
-Time::Piece 1.08 or greater
-
-=head1 BUGS
-
-Probably.
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-=head1 ACKNOWLEDGEMENTS
-
-Thanks to a use.perl.org journal entry
<http://use.perl.org/~geoff/journal/20660> by
-Geoffrey Young.
++++++ cpanspec.yml ++++++
---
#description_paragraphs: 3
#no_testing: broken upstream
#sources:
# - source1
# - source2
#patches:
# foo.patch: -p1
# bar.patch:
#preamble: |-
# BuildRequires: gcc-c++
#post_prep: |-
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'`
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL
#post_install: |-
# sed on %{name}.files
#license: SUSE-NonFree
#skip_noarch: 1
#custom_build: |-
#./Build build flags=%{?_smp_mflags} --myflag
#custom_test: |-
#startserver && make test
#ignore_requires: Bizarre::Module
