Video::Info::Magic

Video::Info::Magic can resolve video filetype if possible. SYNOPSIS use strict; use Video::Info::Magic qw(:all); my $type = divine(/path/to/video.mpg ); print $type; #MPEG system stream data (maybe) ## ... see methods below EXPORT...