Just replace the package main stuff with:

package main;

my $file = shift;

if (defined $file) {
    $file = DumpQuicktime->new(-file=>$file);
    die $file->lastErr () if length $file->lastErr ();
    print $file->dump ();
}
[download]

For me the tree stuff is invaluable. Quicktime atoms are nested about 30 deep in stuff I'm looking at and the output is, I'd guess, a couple of thousand lines long!

Returning a string rather than outputting directly to sdtout allows post processing of the output.

Hmm, the line "$file = DumpQuicktime->new(-file=>$file);" is the same, the same is the error :( Never seen movies with nested more than 3-4 deep atoms. The same with "thousand lines" - an average movie header say with 3-4 tracks may have about hundred or so atoms. Anyway thank you ;-)

The only "interesting" module this version of the code depends on is use Class::MethodMaker. What is the error that you are getting?

I wrote this code to see how a move with four sprite tracks in addition to a conventional movie track was being put together. Expressions involved in mouse hit testing get very nested! Note that this code is now looking inside the sprite media data (not just the track headers) to pull apart event handlers and such.

---

DWIM is Perl's answer to Gödel