git.rot13.org Git - webpac2/blob - vhost/ecas/html.pm

   1 package ecas::html;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub url {
   7         my ($self,$url) = @_;
   8         qq{<a href="$url">$url</a>};
   9 }
  10
  11 sub publisher {
  12         my ($self,$publisher) = @_;
  13         qq{<a href="?search=$publisher">$publisher</a>};
  14 }
  15
  16 1;