1 package Image::Magick::@MAGICK_ABI_SUFFIX@; 2 3 # Copyright 1999-2019 ImageMagick Studio LLC, a non-profit organization 4 # dedicated to making software imaging solutions freely available. 5 # 6 # You may not use this file except in compliance with the License. You may 7 # obtain a copy of the License at 8 # 9 # https://imagemagick.org/script/license.php 10 # 11 # Unless required by applicable law or agreed to in writing, software 12 # distributed under the License is distributed on an "AS IS" BASIS, 13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 14 # See the License for the specific language governing permissions and 15 # limitations under the License. 16 # 17 # Initial version, written by Kyle Shorter. 18 19 use strict; 20 use Carp; 21 use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); 22 23 require 5.002; 24 require Exporter; 25 require DynaLoader; 26 require AutoLoader; 27 28 @ISA = qw(Exporter DynaLoader); 29 # Items to export into callers namespace by default. Note: do not export 30 # names by default without a very good reason. Use EXPORT_OK instead. 31 # Do not simply export all your public functions/methods/constants. 32 @EXPORT = 33 qw( 34 Success Transparent Opaque QuantumDepth QuantumRange MaxRGB 35 WarningException ResourceLimitWarning TypeWarning OptionWarning 36 DelegateWarning MissingDelegateWarning CorruptImageWarning 37 FileOpenWarning BlobWarning StreamWarning CacheWarning CoderWarning 38 ModuleWarning DrawWarning ImageWarning XServerWarning RegistryWarning 39 ConfigureWarning ErrorException ResourceLimitError TypeError 40 OptionError DelegateError MissingDelegateError CorruptImageError 41 FileOpenError BlobError StreamError CacheError CoderError 42 ModuleError DrawError ImageError XServerError RegistryError 43 ConfigureError FatalErrorException 44 ); 45 46 $VERSION = '@PACKAGE_PERL_VERSION@'; 47 48 sub AUTOLOAD { 49 # This AUTOLOAD is used to 'autoload' constants from the constant() 50 # XS function. If a constant is not found then control is passed 51 # to the AUTOLOAD in AutoLoader. 52 no warnings; 53 54 my $constname; 55 ($constname = $AUTOLOAD) =~ s/.*:://; 56 die "&${AUTOLOAD} not defined. The required ImageMagick libraries are not installed or not installed properly.\n" if $constname eq 'constant'; 57 my $val = constant($constname, @_ ? $_[0] : 0); 58 if ($! != 0) { 59 if ($! =~ /Invalid/) { 60 $AutoLoader::AUTOLOAD = $AUTOLOAD; 61 goto &AutoLoader::AUTOLOAD; 62 } 63 else { 64 my($pack,$file,$line) = caller; 65 die "Your vendor has not defined PerlMagick macro $pack\:\:$constname, used at $file line $line.\n"; 66 } 67 } 68 eval "sub $AUTOLOAD { $val }"; 69 goto &$AUTOLOAD; 70 } 71 72 bootstrap Image::Magick::@MAGICK_ABI_SUFFIX@ $VERSION; 73 74 # Preloaded methods go here. 75 76 sub new 77 { 78 my $this = shift; 79 my $class = ref($this) || $this || "Image::Magick::@MAGICK_ABI_SUFFIX@"; 80 my $self = [ ]; 81 bless $self, $class; 82 $self->set(@_) if @_; 83 return $self; 84 } 85 86 sub New 87 { 88 my $this = shift; 89 my $class = ref($this) || $this || "Image::Magick::@MAGICK_ABI_SUFFIX@"; 90 my $self = [ ]; 91 bless $self, $class; 92 $self->set(@_) if @_; 93 return $self; 94 } 95 96 # Autoload methods go after =cut, and are processed by the autosplit program. 97 98 END { UNLOAD () }; 99 100 1; 101 __END__ 102 103 =head1 NAME 104 105 Image::Magick::@MAGICK_ABI_SUFFIX@ - objected-oriented Perl interface to ImageMagick (@MAGICK_ABI_SUFFIX@). Use it to create, edit, compose, or convert bitmap images from within a Perl script. 106 107 =head1 SYNOPSIS 108 109 use Image::Magick::@MAGICK_ABI_SUFFIX@; 110 $p = new Image::Magick::@MAGICK_ABI_SUFFIX@; 111 $p->Read("imagefile"); 112 $p->Set(attribute => value, ...) 113 ($a, ...) = $p->Get("attribute", ...) 114 $p->routine(parameter => value, ...) 115 $p->Mogrify("Routine", parameter => value, ...) 116 $p->Write("filename"); 117 118 =head1 DESCRIPTION 119 120 This Perl extension allows the reading, manipulation and writing of 121 a large number of image file formats using the ImageMagick library. 122 It was originally developed to be used by CGI scripts for Web pages. 123 124 A web page has been set up for this extension. See: 125 126 file://@DOCUMENTATION_PATH@/www/perl-magick.html 127 https://imagemagick.org/script/perl-magick.php 128 129 If you have problems, go to 130 131 https://imagemagick.org/discourse-server/viewforum.php?f=7 132 133 =head1 AUTHOR 134 135 Kyle Shorter magick-users (a] imagemagick.org 136 137 =head1 BUGS 138 139 Has all the bugs of ImageMagick and much, much more! 140 141 =head1 SEE ALSO 142 143 perl(1). 144 145 =cut 146
