Image::Magick::Brand - Perl extension for creating branded images with ImageMagick.

  use Image::Magick::Brand;
  my $b = new Image::Magick::Brand;

  $b->debug(1); # debugging statements on

  # Required parameters
  $b->brand( source => 'brand.png',
             target => 'photo.jpg',
             output => 'branded.jpg' );

  # Required and optional parameters
  $b->brand( source    => 'brand.png',
             target    => 'photo.jpg',
             output    => 'branded.jpg',
             gravity   => 'SouthWest',
             format    => 'jpg',
             composite => 'over',
             quality   => 75 );

       +---------+   +---------+
       |         |   |         |
       |         |   |         |
       |         |   | +--+    |
+--+   |         |   | |  |    |
|  | + |         | = | +--+    |
+--+   +---------+   +---------+

 +---------+
 | 1  2  3 |
 |    4    |
 | 5  6  7 |
 +----------

 1 = NorthWest
 2 = North
 3 = NorthEast
 4 = Center
 5 = SouthWest (default)
 6 = South
 7 = SouthEast

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__