summaryrefslogtreecommitdiffstats
path: root/vagrant/lib/Respin.pm
diff options
context:
space:
mode:
Diffstat (limited to 'vagrant/lib/Respin.pm')
-rw-r--r--vagrant/lib/Respin.pm32
1 files changed, 0 insertions, 32 deletions
diff --git a/vagrant/lib/Respin.pm b/vagrant/lib/Respin.pm
deleted file mode 100644
index 2db8181b5..000000000
--- a/vagrant/lib/Respin.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-package Respin;
-
-use strict;
-use warnings;
-use DateTime;
-use DateTime::Format::Duration;
-use DateTime::Duration;
-use JSON::XS;
-
-my $iso8601_rx = qr{^(\d{4})(\d{2})(\d{2})T(\d{2})(\d{2})(\d{2})$};
-
-my $json = JSON::XS->new->utf8;
-
-my $dur_fmt = DateTime::Format::Duration->new(
- normalize => 1,
- pattern =>
- q{{"week":"%V","day":"%u","hour":"%k","minute":"%M","second":"%S"}}
-);
-
-sub latest_src_age {
- my ( $now, $src ) = @_;
-
- print STDERR "Computing duration between [$src] and [$now]\n";
-
- my ( %now, %src );
- @now{qw(year month day hour minute second)} = ( $now =~ $iso8601_rx );
- @src{qw(year month day hour minute second)} = ( $src =~ $iso8601_rx );
-
- print $dur_fmt->format_duration_from_deltas(
- DateTime->new(%now)->subtract_datetime_absolute( DateTime->new(%src) )
- ->deltas );
-}