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