type); } sub is_binary { my $mime_type = shift; $mime_type !~ /\b(?:text|xml|javascript|json)\b/; } sub last_modified { my $self = shift; $self->{last_modified} ||= do { my