CategoryBar.pm 502 B

12345678910111213141516171819202122232425262728
  1. package Trog::Component::CategoryBar;
  2. use v5.36;
  3. use re '/aa';
  4. use Trog::Component ();
  5. =head1 Trog::Component::CategoryBar
  6. The list of series links in the top bar.
  7. =head1 FUNCTIONS
  8. =head2 render(%args) = STRING
  9. Render categories.tx.
  10. Wants C<categories>, the series list the page was built with, and C<user>, which
  11. decides whether the links point at /secure.
  12. =cut
  13. sub render (%args) {
  14. $args{categories} //= [];
  15. return Trog::Component::render_template( 'categories.tx', \%args );
  16. }
  17. 1;