File Coverage

blib/lib/Image/Magick/Brand.pm

Criterion	Covered	Total	%
statement	9	57	15.7
branch	0	20	0.0
condition	0	12	0.0
subroutine	3	6	50.0
pod			n/a
total	12	95	12.6

package Image::Magick::Brand;

use strict;
use warnings;
use Carp;

require Image::Magick;

our $VERSION = '0.01';

sub new {
  my $class = shift;
  my $self = bless {}, $class;
}

sub debug {
  my $self = shift;
  $self->{debug} = shift;
}

sub brand {
  my ($self, %args) = @_;

  # Required Parameters
  my $source = $args{source};
  my $target = $args{target};
  my $output = $args{output};

  # Optional Parameters
  my $gravity   = $args{gravity}   || 'SouthWest';
  my $composite = $args{composite} || 'over';
  my $format    = $args{format}    || 'jpg';
  my $quality   = $args{quality}   || 100;

  # Error Checking
  if( !$source ){
    carp "No source image specified";
    return undef;
  }

  if( !$target ){
    carp "No target image specified.";
    return undef;
  }

  if( !$output ){
    carp "No output image specified.";
    return undef;
  }

  # Debug Output
  if( $self->{debug} ){
    warn "Source    : $source\n";
    warn "Target    : $target\n";
    warn "Output    : $output\n";
    warn "Gravity   : $gravity\n";
    warn "Composite : $composite\n";
    warn "Quality   : $quality\n";
    warn "Format    : $format\n";
  }

  eval {

    my $im_s = new Image::Magick;
    my $im_t = new Image::Magick;

    my $err;

    open(IMAGE,"<$source") or carp "Could not open source image: $source ($!)" and return undef;
    $err = $im_s->Read(file=>\*IMAGE);
    die $err if $err;
    close(IMAGE);

    open(IMAGE,"<$target") or carp "Could not open target image: $target ($!)" and return undef;
    $err = $im_t->Read(file=>\*IMAGE);
    die $err if $err;
    close(IMAGE);

    $im_s->Set( quality => $quality );
    $im_t->Set( quality => $quality );

    $im_t->Composite( image     => $im_s,
                      composite => 'over',
                      gravity   => $gravity );

    $im_t->Write("$format:$output");
  };

  if( $@ ){
    warn $@ and return undef;
  }

  return 1;
}

1;
__END__