LeftBar.pm 449 B

123456789101112131415161718192021222324
  1. package Trog::Component::LeftBar;
  2. use 5.040;
  3. use re '/aasx';
  4. use warnings FATAL => 'all';
  5. use Trog::Component ();
  6. =head1 Trog::Component::LeftBar
  7. The left sidebar.
  8. =head1 FUNCTIONS
  9. =head2 render(%args) = STRING
  10. Render leftbar.tx. Stock reads no variables; anything passed is handed to the
  11. template, so a theme's override is free to want some.
  12. =cut
  13. sub render (%args) { return Trog::Component::render_template( 'leftbar.tx', \%args ) }
  14. 1;