File Coverage

blib/lib/Image/Size/FillFullSelect.pm

Criterion	Covered	Total	%
statement	9	39	23.0
branch	0	14	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	66	21.2

package Image::Size::FillFullSelect;

use Image::Size;
use warnings;
use strict;

=head1 NAME

Image::Size::FillFullSelect - Choose wether a image fill setting for a image should be fill or full.

=head1 VERSION

Version 0.1.0

=cut

our $VERSION = '0.1.0';


=head1 SYNOPSIS

Decides if the fill setting for a image should be either fill,
in meaning the image should be resized to fix the screen, or full
which means it should be scaled to fit the screen.

    use Image::Size::FillFullSelect;

    my $iffs = Image::Size::FillFullSelect->new();
    my $FFselection = $iffs->select("someImage.gif");

=head1 FUNCTIONS

=head2 new

This creates a new Image::Size::FillFullSelect object.

It takes one optional arguement, which is a integer that
represents the maximum difference between the X and Y
dimensions of a image. The default is .2, which means
the maximum differce between either can be 20%.

=cut

sub new {
	my $hash;

	if(defined($_[1])){
		$hash={maxdiff=>$_[1]};
	}else{
		$hash={maxdiff=>".2"};
	}

	bless $hash;
	return $hash;
}

=head2 select

This makes the selection between the two.

It takes two arguements and three optional ones.

The first arguement is the image.

The second is the max difference when the size of
the picture is used to devide each other.

The third is continuation of the second, but defaults
what ever the second is if it is not specified.

The fourth is comparative X resolution to use.

The fifth is the comparative Y resolution to use.

Upon a error, it returns undef.

    my $filltype=$iffs->select($image, '.2', undef, '800', '600');

=cut

sub select{ #arg1=the image to use  arg2=the max difference
	my ($self, $image, $maxdiff, $maxdiff2, $xres, $yres)=@_;
	my ($imageX, $imageY)=imgsize("$image");

	#use the default if it is defined.
	if(!defined($maxdiff)){
		$maxdiff=$self->{maxdiff};
	};

	if (!$imageX){
		warn($image." is not a image\n");
		return undef;
	};
	#this needs done twice since one direction only can't be trusted...
	my $ixydiff1;
	my $ixydiff2;
	if (!defined($xres)) {
		$ixydiff1=$imageX/$imageY - 1; #gets the scale difference...
		$ixydiff1=abs($ixydiff1); #make the scale differ into a absolute value for easier use
		$ixydiff2=$imageY/$imageX - 1; #gets the scale in the other directions...
		$ixydiff2=abs($ixydiff2); #abs the other one also
	}else {
		$ixydiff1=$xres/$imageY - 1; #gets the scale difference...
		$ixydiff1=abs($ixydiff1); #make the scale differ into a absolute value for easier use
		$ixydiff2=$yres/$imageX - 1; #gets the scale in the other directions...
		$ixydiff2=abs($ixydiff2); #abs the other one also
	}

	if (!defined($maxdiff2)) {
		if ($ixydiff1 <= $maxdiff || $ixydiff2 <= $maxdiff){
			return "fill";
		}else{
			return "full";
		}
	}
	if ($ixydiff1 <= $maxdiff || $ixydiff2 <= $maxdiff2){
		return "fill";
	}else{
		return "full";
	}
}


=head1 AUTHOR

Zane C. Bowers, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Image::Size::FillFullSelect


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2008 Zane C. Bowers, all rights reserved.

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


=cut

1; # End of Image::Size::FillFullSelect