diff options
author | dakkar <dakkar@thenautilus.net> | 2014-12-20 15:22:39 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2014-12-20 15:22:39 +0000 |
commit | fcbd04d14f7e1c54118984eb6cb09bce9b0102f0 (patch) | |
tree | a2191dea055cb08b0f22e7bd481c80bced2c5451 /lib/Net/Hawk/Utils.pm | |
parent | first tests passing (diff) | |
download | net-hawk-fcbd04d14f7e1c54118984eb6cb09bce9b0102f0.tar.gz net-hawk-fcbd04d14f7e1c54118984eb6cb09bce9b0102f0.tar.bz2 net-hawk-fcbd04d14f7e1c54118984eb6cb09bce9b0102f0.zip |
first client tests passing
Diffstat (limited to 'lib/Net/Hawk/Utils.pm')
-rw-r--r-- | lib/Net/Hawk/Utils.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/Net/Hawk/Utils.pm b/lib/Net/Hawk/Utils.pm index 527021d..2b50043 100644 --- a/lib/Net/Hawk/Utils.pm +++ b/lib/Net/Hawk/Utils.pm @@ -1,14 +1,29 @@ package Net::Hawk::Utils; use strict; use warnings; +use Time::HiRes qw(gettimeofday); use 5.010; +use Moo; sub parse_content_type { - my ($header) = @_; + my ($self,$header) = @_; return '' unless defined $header; my ($ret) = $header =~ m{^\s*(\S+?)\s*(;|$)}; return lc($ret); } +sub now_msecs { + my ($self,$offset_ms) = @_; + + my ($sec,$usec) = gettimeofday; + return $sec + int($usec/1000) + $offset_ms//0; +} + +sub now_secs { + my ($self,$offset_ms) = @_; + + return int(now_msecs($offset_ms)/1000); +} + 1; |