Also, check out Perl6::Attributes. Saves a LOT of typing, and makes your code easier to read and maintain, IMHO.

$self->{collapsed_box_height} becomes $.collapsed_box_height

which, when faced with as many $self references as you have, will prevent eye bleeding and carpal tunnel. And give Perl haters less to moan about.