package timeline; use strict; use warnings; use Exporter 'import'; our @EXPORT = qw( generate_attachment ); use template_helpers 'to_template'; use icons 'get_icon'; use postbox 'generate_postbox'; use status 'generate_status'; sub content_timeline { my ($ssn, $data, $statuses, $title, $show_post_box) = @_; my %vars = ( prefix => '', ssn => $ssn, statuses => $statuses, title => $title, show_post_box => $show_post_box, postbox => \&postbox, create_status => \&generate_status, ); to_template(\&vars, \&data->{'timeline.tt'}); }