File Coverage

blib/lib/HTML/LinkChanger/Absolutizer.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	25	27	92.5

package HTML::LinkChanger::Absolutizer;

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

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

require Exporter;
require HTML::LinkChanger::URLFilter;
require URI;
require HTML::LinkChanger;

@ISA = qw(Exporter AutoLoader HTML::LinkChanger::URLFilter);
# 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 %args = @_;

	die "Must specify base URL" unless $args{base_url};

	my $self = $class->SUPER::new();

	$self->{_absolutizer_base} = URI->new($args{base_url});

	$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

	my $base = $self->{_absolutizer_base};

	return URI->new($url, $base)->abs($base);
}

1;
__END__