vhost/ecas/html.pm

package ecas::html;

use strict;
use warnings;

sub url {
        my ($self,$url) = @_;
        qq{<a href="$url">$url</a>};
}

sub publisher {
        my ($self,$publisher) = @_;
        qq{<a href="?search=$publisher">$publisher</a>};
}

1;
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;