@@ -0,0 +1,12 @@
+branches:
+ except:
+ - gh-pages
+language: perl
+perl:
+ - "5.20"
+ - "5.18"
+ - "5.16"
+ - "5.14"
+ - "5.12"
+ - "5.10"
+
@@ -0,0 +1,7 @@
+
+0.51 2014-10-17
+ New maintainer (SZABGAB)
+ Use Test::More instead of Test
+ Include META.yml RT #77752
+ POD encoding is now utf8 RT #93259
+
@@ -1,7 +1,10 @@
-MANIFEST
-MANIFEST.SKIP
+.travis.yml
+Changes
Makefile.PL
+MANIFEST This list of files
README
+t/when.t
Warp.pm
Warp.xs
-t/when.t
+META.yml Module YAML meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
@@ -1,3 +0,0 @@
-^MANIFEST\.bak$
-Makefile(\.old)?$
-\.rej$
@@ -0,0 +1,52 @@
+{
+ "abstract" : "control over the flow of time",
+ "author" : [
+ "Joshua Nathaniel Pritikin <jpritikin@pobox.com>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Time-Warp",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Test::More" : "1.00"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "bugtracker" : {
+ "web" : "http://github.com/szabgab/Time-Warp"
+ },
+ "repository" : {
+ "type" : "git",
+ "url" : "http://github.com/szabgab/Time-Warp.git",
+ "web" : "http://github.com/szabgab/Time-Warp",
+ "x_license" : "http://dev.perl.org/licenses/"
+ }
+ },
+ "version" : "0.51"
+}
@@ -0,0 +1,25 @@
+---
+abstract: 'control over the flow of time'
+author:
+ - 'Joshua Nathaniel Pritikin <jpritikin@pobox.com>'
+build_requires:
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: Time-Warp
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Test::More: '1.00'
+resources:
+ bugtracker: http://github.com/szabgab/Time-Warp
+ repository: http://github.com/szabgab/Time-Warp.git
+version: '0.51'
@@ -1,12 +1,36 @@
use ExtUtils::MakeMaker;
-require 5.005; # maybe 5.004_65+ OK
+require 5.006;
-my %hash = (
- NAME => 'Time::Warp',
- VERSION_FROM => 'Warp.pm',
- OBJECT => 'Warp.o',
- OPTIMIZE => '-g',
- );
+my %conf = (
+ NAME => 'Time::Warp',
+ AUTHOR => 'Joshua Nathaniel Pritikin <jpritikin@pobox.com>',
+ VERSION_FROM => 'Warp.pm',
+ ABSTRACT_FROM => 'Warp.pm',
+ LICENSE => 'perl',
+ OBJECT => 'Warp.o',
+ OPTIMIZE => '-g',
+ PREREQ_PM => {
+ 'Test::More' => '1.00',
+ },
+);
-WriteMakefile(%hash);
+if (eval { ExtUtils::MakeMaker->VERSION(6.46) }) {
+ $conf{META_MERGE} = {
+ 'meta-spec' => { version => 2 },
+ resources => {
+ repository => {
+ type => 'git',
+ url => 'http://github.com/szabgab/Time-Warp.git',
+ web => 'http://github.com/szabgab/Time-Warp',
+ license => 'http://dev.perl.org/licenses/',
+ },
+ bugtracker => {
+ web => 'http://github.com/szabgab/Time-Warp',
+ },
+ },
+ };
+}
+
+
+WriteMakefile(%conf);
@@ -5,7 +5,7 @@ require Exporter;
require DynaLoader;
@ISA = qw(DynaLoader Exporter);
@EXPORT_OK = qw(reset to scale time);
-$VERSION = '0.5';
+$VERSION = '0.51';
__PACKAGE__->bootstrap($VERSION);
@@ -14,6 +14,8 @@ install_time_api();
1;
__END__
+=encoding utf8
+
=head1 NAME
Time::Warp - control over the flow of time
@@ -76,7 +78,7 @@ THERMODYNAMICS.
=head1 COPYRIGHT
-Copyright © 1999, 2000 Joshua Nathaniel Pritikin. All rights reserved.
+Copyright © 1999, 2000 Joshua Nathaniel Pritikin. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
@@ -1,8 +1,10 @@
-#!./perl -w
+use strict;
+use warnings;
+
# These tests may occationally fail due to small timing differences.
-use Test; plan test => 8;
+use Test::More tests => 8;
{
local $SIG{__WARN__} = sub {
if ($_[0] =~ /Time::HiRes/) {
@@ -15,19 +17,19 @@ use Test; plan test => 8;
}
Time::Warp->import(qw(time to scale));
ok 1;
-ok &scale, 1;
+is scale(), 1;
scale(2);
-ok &scale, 2;
+is &scale, 2;
my $now = &time;
sleep 2;
-ok(&time - $now, 4);
+is(&time - $now, 4);
to(CORE::time);
-ok(&time - CORE::time, 0);
+is(&time - CORE::time, 0);
scale(scale() * 2);
-ok(&time - CORE::time, 0);
+is(&time - CORE::time, 0);
Time::Warp::reset(); to(&time + 5);
-ok(&time - CORE::time, 5);
+is(&time - CORE::time, 5);