diff options
author | dakkar <dakkar@thenautilus.net> | 2014-12-20 14:27:55 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2014-12-20 14:27:55 +0000 |
commit | a237abd8e01e2783b9bb9d6eb3c3c26ef8832f92 (patch) | |
tree | ed88c9fed05152c9ce2ee77e3bf42dc600a1d24b /lib/Net/Hawk/Utils.pm | |
download | net-hawk-a237abd8e01e2783b9bb9d6eb3c3c26ef8832f92.tar.gz net-hawk-a237abd8e01e2783b9bb9d6eb3c3c26ef8832f92.tar.bz2 net-hawk-a237abd8e01e2783b9bb9d6eb3c3c26ef8832f92.zip |
first tests passing
Diffstat (limited to 'lib/Net/Hawk/Utils.pm')
-rw-r--r-- | lib/Net/Hawk/Utils.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/Net/Hawk/Utils.pm b/lib/Net/Hawk/Utils.pm new file mode 100644 index 0000000..527021d --- /dev/null +++ b/lib/Net/Hawk/Utils.pm @@ -0,0 +1,14 @@ +package Net::Hawk::Utils; +use strict; +use warnings; +use 5.010; + +sub parse_content_type { + my ($header) = @_; + return '' unless defined $header; + + my ($ret) = $header =~ m{^\s*(\S+?)\s*(;|$)}; + return lc($ret); +} + +1; |