diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/GD/Group.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/GD/Group.pm | 33 |
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; |