Mercurial > repos > dereeper > sniploid2
diff GD/Group.pm @ 0:e94de0ea3351 draft default tip
Uploaded
author | dereeper |
---|---|
date | Wed, 11 Sep 2013 09:08:15 -0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/GD/Group.pm Wed Sep 11 09:08:15 2013 -0400 @@ -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;