type); } sub is_binary { my $mime_type = shift; $mime_type !~ /\b(?:text|xml|javascript|json)\b/; } sub get_stuff { my ($self, $path, $query) = @_; my $key = $path . $query; if