diff options
Diffstat (limited to 'vagrant/lib/Respin.pm')
-rw-r--r-- | vagrant/lib/Respin.pm | 32 |
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 ); -} |