I've released an XS implementation of Thrift::BinaryProtocol and Thrift::MemoryBuffer. They are around 4-6 times faster than the pure-Perl versions and can be used as a drop-in replacement for those 2 modules. I plan to also implement the compact protocol in the next few days.
(XS is Perl's C interface, in case you aren't familiar with the term.) https://github.com/andygrundman/thrift-xs http://search.cpan.org/dist/Thrift-XS/ -Andy
