diff options
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; |