File Coverage

blib/lib/HTML/LinkChanger/URLFilter.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	2	0.0
total	12	22	54.5

package HTML::LinkChanger::URLFilter;

# Version: $Id: URLFilter.pm 4 2007-10-05 15:51:37Z sergey.chernyshev $

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require AutoLoader;

@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(

);
$VERSION = sprintf("2.%d", q$Rev: 4 $ =~ /(\d+)/);

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

sub new
{
	my $class = shift;
	my $self = bless {}, $class;

	$self;
}

sub url_filter
{
	my $self = shift;
	my %args = @_;

	my $url = $args{url};	# url of the link
	my $tag = $args{tag};	# tag containing a link to change
	my $attr = $args{attr};	# attribute containing a link to change

	die 'You need to implement this method to create a filter';

	return $url;
}

1;
__END__