File Coverage

blib/lib/GD/Image/Orientation.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package GD::Image::Orientation;

use strict;
use warnings;
use GD;

our $VERSION = '0.05';

sub GD::Image::vertical {
    my $gdo = shift;
    my $ccw = shift || 0;
    my $dosq = shift() ? 0 : 1;
    if(!$gdo->isvertical($dosq)) {
        if($ccw) { return $gdo->copyRotate270 }
        else { return $gdo->copyRotate90 }
    }
    return $gdo;
}

sub GD::Image::horizontal {
    my $gdo = shift;
    my $ccw = shift || 0;
    my $dosq = shift() ? 0 : 1;
    if(!$gdo->ishorizontal($dosq)) {
        if($ccw) { return $gdo->copyRotate270 }
        else { return $gdo->copyRotate90 }
    }
    return $gdo;
}

sub GD::Image::isvertical {
    my ($w,$h) = shift->getBounds;
    return 1 if $h >= $w && shift;
    return 1 if $h > $w;
    return 0;
}

sub GD::Image::ishorizontal {
    my ($w,$h) = shift->getBounds;
    return 1 if $w >= $h && shift;
    return 1 if $w > $h;
    return 0;
}

sub GD::Image::issquare {
    my ($w,$h) = shift->getBounds;
    return 1 if $h == $w;
    return 0;
}

sub GD::Image::orientation {
    my $gdo = shift;
    return 'square' if $gdo->issquare;
    return 'vertical' if $gdo->isvertical;
    return 'horizontal' if $gdo->ishorizontal;
    return undef; # should never get here
}

1;
__END__