Theme.pm 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. package Theme;
  2. use 5.040;
  3. use re '/aa';
  4. =head1 Theme
  5. An example of the bare minimum your themes' routes.pm need.
  6. Copy and alter things below as needed.
  7. Themes are loaded by Trog::Themes::routes(), which requires the active theme's
  8. routes.pm and expects it to have populated the package variables below, along
  9. with %Theme::routes if the theme wants routes of its own.
  10. Everything here is optional -- Trog::Routes::HTML falls back to generic tCMS
  11. defaults for anything a theme leaves unset -- but a site that sets none of it
  12. will identify itself as "Another tCMS Site" to search engines and social media.
  13. =head2 VARIABLES
  14. =over 4
  15. =item $default_title
  16. Fallback <title> for pages which have no post of their own to name them.
  17. =item $default_image
  18. The image handed to social media scrapers as the site's preview, relative to
  19. the theme directory.
  20. =item $display_name
  21. What the site calls itself, e.g. in the og:site_name meta tag.
  22. =item $description
  23. Fallback meta description, used when the page has no post body to summarize.
  24. =item $default_tags
  25. Comma separated keywords for the meta keywords tag.
  26. =item $twitter_account, $fb_app_id
  27. Set these if you want the relevant twitter: and fb: meta tags emitted.
  28. Left empty, HTML::SocialMeta is handed nothing to put in them.
  29. =back
  30. =cut
  31. our $default_title = 'tCMS';
  32. our $default_image = 'img/icon/favicon-48.png';
  33. our $display_name = 'tCMS';
  34. our $description = 'tCMS is a content management system written in perl.';
  35. our $default_tags = 'tcms';
  36. our $twitter_account = '';
  37. our $fb_app_id = '';
  38. 1;