/usr/lib/perl5/Graphics/Magick.pm is in libgraphics-magick-perl 1.3.12-1.1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # Copyright (C) 2003 GraphicsMagick Group
# Copyright (C) 2002 ImageMagick Studio
# Copyright (C) 1998,1999 E. I. du Pont de Nemours and Company
#
# This program is covered by multiple licenses, which are described in
# Copyright.txt. You should have received a copy of Copyright.txt with this
# package; otherwise see http://www.graphicsmagick.org/www/Copyright.html.
#
package Graphics::Magick;
# Released Feb. 17, 1997 by Kyle Shorter (magick@wizards.dupont.com)
# Public Domain
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 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
);
# This version identifier must match the package version.
$VERSION = '1.3.12';
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.
my $constname;
($constname = $AUTOLOAD) =~ s/.*:://;
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 Graphics::Magick $VERSION;
# Preloaded methods go here.
sub new
{
my $this = shift;
my $class = ref($this) || $this || "Graphics::Magick";
my $self = [ ];
bless $self, $class;
$self->set(@_) if @_;
return $self;
}
sub New
{
my $this = shift;
my $class = ref($this) || $this || "Graphics::Magick";
my $self = [ ];
bless $self, $class;
$self->set(@_) if @_;
return $self;
}
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
=head1 NAME
Graphics::Magick - Perl extension for calling GraphicsMagick's libGraphicsMagick routines
=head1 SYNOPSIS
use Graphics::Magick;
p = new Graphics::Magick;
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 GraphicsMagick 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:
http://www.GraphicsMagick.org/www/perl.html
=head1 AUTHOR
Kyle Shorter magick@wizards.dupont.com
=head1 BUGS
Has all the bugs of GraphicsMagick and much, much more!
=head1 SEE ALSO
perl(1).
=cut
|