/
usr
/
lib64
/
perl5
/
vendor_perl
/
GD
/
/usr/lib64/perl5/vendor_perl/GD
mkdir
upload
Name
Size
Mode
Actions
Group.pm
671
0644
edit
dl
rm
Image.pm
8959
0644
edit
dl
rm
Polygon.pm
4505
0644
edit
dl
rm
Polyline.pm
23027
0644
edit
dl
rm
Simple.pm
37898
0644
edit
dl
rm
Edit:
/usr/lib64/perl5/vendor_perl/GD/Group.pm
(671B)
package GD::Group; =head1 NAME GD::Group - Simple object for recursive grouping =head1 DESCRIPTION Does absolutely nothing with GD, but works nicely with GD::SVG. =cut use strict; our $AUTOLOAD; our $VERSION = 1.00; sub AUTOLOAD { my ($pack,$func_name) = $AUTOLOAD =~ /(.+)::([^:]+)$/; my $this = shift; $this->{gd}->currentGroup($this->{group}); $this->{gd}->$func_name(@_); } sub new { my $this = shift; my ($gd,$group) = @_; return bless {gd => $gd, group => $group},ref $this || $this; } sub DESTROY { my $this = shift; my $gd = $this->{gd}; my $grp = $this->{group}; $gd->endGroup($grp); } 1;
Save
cmd:
run