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