summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/GD/Group.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/GD/Group.pm')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/GD/Group.pm33
1 files changed, 33 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/GD/Group.pm b/Master/tlpkg/tlperl0/lib/GD/Group.pm
new file mode 100755
index 00000000000..93506bb3bc1
--- /dev/null
+++ b/Master/tlpkg/tlperl0/lib/GD/Group.pm
@@ -0,0 +1,33 @@
+package GD::Group;
+
+# Simple object for recursive grouping. Does absolutely nothing with GD,
+# but works nicely with GD::SVG.
+
+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;