1package X11::Xlib::XserverRegion; 2use strict; 3use warnings; 4use Carp; 5use parent 'X11::Xlib::XID'; 6 7# All modules in dist share a version 8BEGIN { our $VERSION= $X11::Xlib::VERSION; } 9 10sub DESTROY { 11 my $self= shift; 12 $self->display->XFixesDestroyRegion($self->xid) 13 if $self->autofree && $self->xid; 14} 15 161; 17 18__END__ 19 20=head1 NAME 21 22X11::Xlib::XserverRegion - XID wrapper for XserverRegion 23 24=head1 DESCRIPTION 25 26Object representing a clip region, as used by the Xfixes extension. 27 28Not much of that API is exposed by this module, yet. 29 30=head1 ATTRIBUTES 31 32See L<X11::Xlib::XID> for base-class attributes. 33 34=head1 AUTHOR 35 36Olivier Thauvin, E<lt>nanardon@nanardon.zarb.orgE<gt> 37 38Michael Conrad, E<lt>mike@nrdvana.netE<gt> 39 40=head1 COPYRIGHT AND LICENSE 41 42Copyright (C) 2009-2010 by Olivier Thauvin 43 44Copyright (C) 2017 by Michael Conrad 45 46This library is free software; you can redistribute it and/or modify 47it under the same terms as Perl itself, either Perl version 5.10.0 or, 48at your option, any later version of Perl 5 you may have available. 49 50=cut 51