File Coverage

blib/lib/CGI/Lazy/Image.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	4	5	80.0
total	16	36	44.4

package CGI::Lazy::Image;

use strict;

use CGI::Lazy::Globals;

#-------------------------------------------------------------------------------------------------
sub dir {
	my $self = shift;

	return $self->{_dir};
}

#----------------------------------------------------------------------------------------
sub file {
	my $self = shift;
	my $file = shift;

	my $dir = $self->dir;

	return "$dir/$file";
}

#----------------------------------------------------------------------------------------
sub load {
	my $self = shift;
	my $file = shift;

	my $dir = $self->dir;
	$dir =~s/^\///; #strip a leading slash
	my $docroot = $ENV{DOCUMENT_ROOT};
	$docroot =~ s/\/$//; #strip the trailing slash so we don't double it

	return "$docroot/$dir/$file";

}

#-------------------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;

	return bless {
		_q 		=> $q,
		_dir		=> $q->config->imgDir,

	}, $class;
}

#-------------------------------------------------------------------------------------------------
sub q {
	my $self = shift;

	return $self->{_q};
}

1

__END__