CGI::Lazy::Image - CGI::Lazy::Image documentation

CGI-Lazy documentation Contained in the CGI-Lazy distribution.

Index

Code Index:

LEGAL

Top

#===========================================================================

Copyright (C) 2008 by Nik Ogura. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Bug reports and comments to nik.ogura@gmail.com.

#=========================================================================== =head1 NAME

CGI::Lazy::Image

SYNOPSIS

Top

	use CGI::Lazy;

	my $q = CGI::Lazy->new();




	my $imagedir = $q->image->dir;

DESCRIPTION

CGI::Lazy::Image is, at present, just a convience module for accessing images.

METHODS

Top

dir ()

Returns directory containing css specified at lazy object creation

file (image)

Returns absolute path to file image parsed with document root and image directory

image

Image file name

q ( )

Returns CGI::Lazy object.

new ( q )

constructor.

q

CGI::Lazy object

CGI-Lazy documentation Contained in the CGI-Lazy distribution. 
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__