Bug #120065 for MIME-Types: Object API does not return MIME type, function API does

* spam@mm.st via RT (bug-MIME-Types@rt.cpan.org) [170201 15:41]: Show quoted text
How do you test for 'null'? (Perl does not have 'null') What is the filename you actually use? Which MIME::Types version? $ perl -Ilib -MMIME::Types -we 'print MIME::Types::by_suffix("a.gif")' image/gif $ perl -Ilib -MMIME::Types -we 'print MIME::Types->new->mimeTypeOf("a.gif")' image/gif Probably something else is disturbing your output -- Regards, MarkOv ------------------------------------------------------------------------ Mark Overmeer MSc MARKOV Solutions Mark@Overmeer.net solutions@overmeer.net http://Mark.Overmeer.net http://solutions.overmeer.net

Hello, the "null" term I incorrectly used is referred actually to a void string, sorry for the loose terminology. I probably found the reason of this strange behavior, seems that it is due to the fact that the mimeTypeOf method returns a string and not an object when called in scalar context, I didn't read the documentation carefully (my bad) and thought the return type of this method to be always a string. The module I use for web output ( https://metacpan.org/pod/JSONP ) sets up a different context thus the strange behavior. You can find a demo of the behavior illustrated by the little test script below (I reported its output as well). Not sure if this can be deemed as an actual "bug" of MIME::Types. SCRIPT # cat testMIMETypes #!/usr/bin/perl use lib '/var/www/perl_modules'; use UseLib; # this must be the first module to load, because it sets additional custom module source libs use MIME::Types; use JSONP; use Data::Dumper; use v5.10; my $filename = 'test.jpg'; my $mt = MIME::Types->new; my $ootype = $mt->mimeTypeOf($filename); say "OO API: $ootype"; my ($type, $enc) = MIME::Types::by_suffix($filename); say "F API: $type"; my $j = JSONP->new->debug; $j->test->type = $ootype; $j->test->control = 'control string'; say $j->test->serialize; say Dumper $ootype; TEST OUTPUT # ./testMIMETypes OO API: image/jpeg F API: image/jpeg {"type":null,"control":"control string"} $VAR1 = bless( { 'MT_encoding' => 'base64', 'MT_extensions' => [ 'jpeg', 'jpg', 'jpe', 'jfif', 'jfif-tbnl' ], 'MT_simplified' => 'image/jpeg', 'MT_type' => 'image/jpeg' }, 'MIME::Type' );

Hello, yep, JSON null is from Perl undef. I am very curious about the stringify mechanism but wasn't able to understand at all where it happens on your source code. Many thanks for prompt support!