/usr/lib/x86_64-linux-gnu/perl5/5.20/GD/Image.pm is in libgd-perl 2.53-1+b1.
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 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 | # DO NOT EDIT! THIS FILE IS AUTOGENERATED BY GD/Image.pm.PLS
package GD::Image;
use strict;
use GD;
use Symbol 'gensym','qualify_to_ref';
use vars '$VERSION';
$VERSION = '2.38';
=head1 NAME
GD::Image - Image class for the GD image library
=head1 SYNOPSIS
See L<GD>
=head1 DESCRIPTION
See L<GD>
=head1 AUTHOR
The GD.pm interface is copyright 1995-2005, Lincoln D. Stein. It is
distributed under the same terms as Perl itself. See the "Artistic
License" in the Perl source code distribution for licensing terms.
The latest versions of GD.pm are available on CPAN:
http://www.cpan.org
=head1 SEE ALSO
L<GD>
L<GD::Polyline>,
L<GD::SVG>,
L<GD::Simple>,
L<Image::Magick>
=cut
# Copyright 1995 Lincoln D. Stein. See accompanying README file for
# usage information
*stringTTF = \&GD::Image::stringFT;
sub _make_filehandle {
shift; # get rid of class
no strict 'refs';
my $thing = shift;
return $thing if defined(fileno $thing);
# otherwise try qualifying it into caller's package
my $fh;
{
local $^W = 0; # to avoid uninitialized variable warning from Symbol.pm
$fh = qualify_to_ref($thing,caller(2));
}
return $fh if defined(fileno $fh);
# otherwise treat it as a file to open
$fh = gensym;
open($fh,$thing) || return;
return $fh;
}
sub new {
my $pack = shift;
if (@_ == 1) {
if (my $type = _image_type($_[0])) {
my $method = "newFrom${type}Data";
return unless $pack->can($method);
return $pack->$method($_[0]);
}
return unless my $fh = $pack->_make_filehandle($_[0]);
my $magic;
return unless read($fh,$magic,4);
return unless my $type = _image_type($magic);
seek($fh,0,0);
my $method = "newFrom${type}";
return $pack->$method($fh);
}
return $pack->_new(@_);
}
sub newTrueColor {
my $pack = shift;
return $pack->_new(@_, 1);
}
sub newPalette {
my $pack = shift;
return $pack->_new(@_, 0);
}
sub newFromGd {
croak("Usage: newFromGd(class,filehandle)") unless @_==2;
my($class,$f) = @_;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromGd($fh);
}
sub newFromGd2 {
croak("Usage: newFromGd2(class,filehandle)") unless @_==2;
my($class,$f) = @_;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromGd2($fh);
}
sub newFromGd2Part {
croak("Usage: newFromGd2(class,filehandle,srcX,srcY,width,height)") unless @_==6;
my($class,$f) = splice(@_,0,2);
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromGd2Part($fh,@_);
}
sub ellipse ($$$$$) {
my ($self,$cx,$cy,$width,$height,$color) = @_;
$self->arc($cx,$cy,$width,$height,0,360,$color);
}
# draws closed polygon with the specified color
sub polygon {
my $self = shift;
my($p,$c) = @_;
$self->openPolygon($p, $c);
$self->line( @{$p->{'points'}->[0]},
@{$p->{'points'}->[$p->{'length'}-1]}, $c);
}
sub width {
my $self = shift;
my @bounds = $self->getBounds;
$bounds[0];
}
sub height {
my $self = shift;
my @bounds = $self->getBounds;
$bounds[1];
}
sub _image_type {
my $data = shift;
my $magic = substr($data,0,4);
return 'Png' if $magic eq "\x89PNG";
return 'Jpeg' if $magic eq "\377\330\377\340";
return 'Jpeg' if $magic eq "\377\330\377\341";
return 'Jpeg' if $magic eq "\377\330\377\355";
return 'Jpeg' if $magic eq "\377\330\377\356";
return 'Gif' if $magic eq "GIF8";
return 'Gd2' if $magic eq "gd2\000";
return 'Xpm' if substr($data,0,9) eq "/* XPM */";
return;
}
sub clone {
croak("Usage: clone(\$image)") unless @_ == 1;
my $self = shift;
my ($x,$y) = $self->getBounds;
my $new = $self->new($x,$y);
return unless $new;
$new->copy($self,0,0,0,0,$x,$y);
return $new;
}
sub newFromPng {
croak("Usage: newFromPng(class,filehandle,[truecolor])") unless @_>=2;
my($class) = shift;
my($f) = shift;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromPng($fh,@_);
}
sub newFromJpeg {
croak("Usage: newFromJpeg(class,filehandle,[truecolor])") unless @_>=2;
my($class) = shift;
my($f) = shift;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromJpeg($fh,@_);
}
sub newFromGif {
croak("Usage: newFromGif(class,filehandle,[truecolor])") unless @_>=2;
my($class) = shift;
my($f) = shift;
my $fh = $class->_make_filehandle($f);
binmode($fh);
$class->_newFromGif($fh,@_);
}
# Autoload methods go after __END__, and are processed by the autosplit program.
1;
__END__
|